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Preface 



This book has been designed to teach you advanced programming 
techniques for the 6502 microprocessor in a systematic and progressive 
way. Developing a program involves devising a suitable algorithm and 
appropriate data structures, and then coding the algorithm. In the case 
of a microprocessor such as the 6502, the design of the algorithm and the 
data structures is generally constrained by three conditions: 

1. The amount of memory available is often limited or must be 
minimized; i.e., the program must be terse. 

2. The highest possible execution speed may be required. Efficient 
coding of the program into assembly level language instructions 
then becomes an essential consideration. In particular, the use of 
registers must be optimized. 

3 . The specific input/output design requires an understanding of the 
input and output chips and their programming. 

Thus, when evaluating designs for an algorithm and data structures, 
the programmer must weigh the merits of the various techniques in terms 
of his skill, the memory limitations, the required speed of execution, 
and the overall probability of success. 

Advanced programming for the 6502, therefore, involves knowledge 
of all the chips that may be affected by the program, in addition to the usual 
programming skills concerned with the algorithm, the data structures, 
and the efficient use of internal instructions and registers. This book 
provides a comprehensive and complete overview of all the important 
techniques required to program a 6502 system efficiently. The book has 
been designed as an educational text. Each chapter introduces new con- 
cepts, chips, or techniques in turn. In the final chapters more complex 
algorithms are presented, which integrate the techniques presented 
throughout the book. 

For clarity and consistency, this book uses a specific 6502-based 
system on which all the programs will run. The details are presented in 
Chapter 1 . However, the programs and techniques presented here are 
applicable to all 6502-based systems. Similarly, all the programs studied 
in this book are presented in the form of realistic games involving success- 
ively all the techniques described. They cover most types of applications 
ranging from simple input/ output techniques to sophisticated real-time 
simulations, including the handling of interrupts and the design of com- 
plex data structures. 
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A case study approach is used, and each chapter contains the following: 

1 . A description of the concepts and techniques to be studied 

2. The specifications of the program's behavior and a typical session 
with the program, i.e. , the problem to be solved 

3. The algorithm(s): theory of operation, design, and trade-offs 

4. The actual program: data structures, programming techniques, 
specific subroutines, merits of alternative techniques, and a com- 
plete program listing. 

Variations and exercises are also proposed in each chapter. 

Thus, you will first study the definition of the problem, then observe 
the expected program behavior, and then learn how to devise a possible 
solution (algorithm plus data structures). Finally, you will design a 
complete program for this algorithm in 6502 assembly level language, 
paying specific attention to the required data structures, the efficient use 
of registers, the input/output chips, and the techniques used for efficient 
programming. 

You will sharpen your skills at using input/output techniques including 
timers and interrupts. But most importantly, you will be consistently 
reminded of the trade-offs between ease in programming, use of 
memory, efficiency of execution, and algorithmic improvements by use 
of specialized hardware or software techniques. 

In order to learn the advanced programming techniques presented in 
this book, it is not necessary to build any actual hardware. However, it is 
necessary to write programs on your own along the ten chapters of 
this book. By showing you and explaining in detail the design of many 
actual programs, the author hopes to facilitate your next step: actual 
programming. 
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1. Introduction 



In order to learn the techniques and study the program examples 
presented in this book, no specific equipment is required. However, the 
availability of a 6502-based system is a major advantage to develop and 
test 6502 programs on your own. Bear in mind that each 6502-based 
system will have a somewhat different input/ output configuration. The 
techniques presented in this book are applicable to all, and the programs 
can be easily adapted once you understand input/ output operations. 

To read this book, you should be familiar with the 6502 instruction set 
and basic programming techniques on the level of Programming the 6502. 
A basic knowledge of input/output techniques is also recommended. 
(This topic is covered in 6502 Applications.) 

The programs presented in Chapters 2 through 1 1 range from simple 
to complex. In order to implement these programs, algorithms will be 
devised and data structures will be designed. This is the process any 
disciplined computer programmer must go through when designing a 
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program solution for a given problem. The ten case studies presented in 
this book will also familiarize you with common input/ output techni- 
ques. Toward the end of the book, you will find that the problems 
presented pose increasingly complex intellectual challenges to devising 
efficient solutions. All the strategies presented in this book, including 
the one used for the Tic-Tac-Toe game in Chapter 1, are believed to be 
original. These strategies and the design process will be analyzed in 
detail. As an additional design constraint intended to teach you efficient 
design, all the algorithms and data structures presented in this book 
have been designed to result in a program that can reside within less than 
IK of available memory. 

The programs presented in this book have been tested on actual 
hardware by many users and have been found to be error- free in the con- 
ditions under which they were tested. As in any large set of programs, 
however, inadequacies or improvements may be found. 

OPTIONAL HARDWARE SUPPORT 

The programs contained in this book can be developed on any 
6502-based system. However, in order to be executed they require a 
specific input/output environment. For the sake of simplicity, a 
uniform hardware environment has been used throughout this book. It 
assumes a 6502-based board, the SYM board (by Synertek Systems), 
and an additional input/output board, called the Games Board, which 
can be easily built. For completeness, an overview of the SYM board 
and a complete description of the Games Board will be provided in this 
chapter. However, it is not necessary to purchase or build these boards 
to understand the information presented in this book. The Games 
Board may also be adapted easily to other 6502-based computers such as 
Commodore or Apple computers. The programs remain essentially un- 
changed except for input/output device allocations. 

The Games Board can also be simulated on a standard terminal by 
displaying information on a CRT screen and capturing input from a 
normal alphanumeric keyboard. 

A photograph of the Games Board is shown in Figure 1.1. The 
keyboard on the right is used to provide inputs to the microcomputer 
board, while the LEDs on the left are used to display the information 
sent by the program. The specific use of the keys and the LEDs will be 
explained in each chapter. A speaker is also provided for sound effects. 
It can be mounted in an enclosure (box) for improved sound quality (see 
Figure 1 .2). This input/ output board can be easily built at home from a 
small number of low cost components. 
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CONNECTING THE SYSTEM 

If you wish to assemble the actual system and build the input/ output 
board, read on. If you are not interested in building any actual hard- 
ware, proceed to the description of an important program subroutine 
that will be used repeatedly in this book: the keyboard input routine. 

Four essential components are required to assemble the Games 
Board: 

1 - the power supply 

2 - the SYM board 

3 - the Games Board 

4 - (preferably) a cassette recorder 

The first requirement is to connect the wires to the power supply. If 
it is not already so equipped, two sets of wires must be connected to it. 
(See Figure 1.3.) First, it must be connected to a power cord. Second, 
the ground and plus 5V wires must be connected to the SYM power 
connector, as per the manufacturer's specifications. 

Next, the Games Board should be physically connected to the SYM. 
Two edge connectors are required for the SYM: both the A connector 
and the AA connector are used. (See Figure 1 .4.) There is also a power 
source connector. 

Always be careful to insert the connectors with the proper side up 
(usually the printed side). An error in inserting the power connector, 
in particular, will have highly unpleasant results. Errors in inserting 
the I/O connectors are usually less damaging. 

Finally, if a cassette recorder is to be used (highly recommended), 
the SYM board must be connected to a tape recorder. At the 
minimum, the "monitor" or "earphone" wires should be connected, 
and preferably the "remote" wire as well. If new programs are going 
to be stored on tape, the "record" or "microphone" wire should also 
be connected. (See Figure 1.5.) Details for these connections are given 
in the SYM manual. 

At this point the system is ready to be used. (See Figure 1 .6.) If you 
have one of the games cassettes (available separately from Sybex), 
simply load the cassette into the tape recorder. Press the RST key after 
powering up your SYM, and load the appropriate game into your 
SYM. You are ready to play. 

Otherwise, you should enter the hexadecimal object code of the 
game on the SYM keyboard. All games are started by jumping to 
location 200 ("GO 200"). 
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Fig. 1 .3: Two Wires Must Be Connected to the Power Supply 



POWER 
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iONNFCTOR > 
GAMES BOAR 



ONNECIOR AA 
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Fig. 1 .4: The Games Board is Connected to the SYM with 2 Connectors 
(Note also Power and Cassette Connectors) 
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INTRODUCTION 



GAMES BOARD INTERCONNECT 
The Keyboard 

The board's components are shown in Figure 1.7. The LED ar- 
rangement used for the games is shown in Figure 1.8. The keyboard 
used here is of the "line per key" type, and does not use a matrix ar- 
rangement. Sixteen keys are required for the games, even though more 
keys are often provided on a number of "standard keyboards," such 
as the one used in the prototype of Figure 1.7. On this prototype, the 
three keys at the bottom right-hand corner are not used (keys H, L, 
and "shift"). 

Figure 1.9 shows how a l-to-16 decoder (the 74154) is used to iden- 
tify the key which has been pressed, while tying up only four output 
lines (PBO to PB3) — four lines allow 16 codes. The keyboard scan- 
ning program will send the numbers 0-15 in succession out on lines 
PB0-PB3. In response, the 74154 decoder will decode its input (4 bits) 
into each one of the 16 outputs in sequence. For example, when the 
number "0000" (binary) is output on lines PBO to PB3, the 74154 
decoder grounds line 1 corresponding to key "0". This is illustrated in 
Figure 1.9. After outputting each four-bit combination, the scanning 
program reads the value of PA7. If the key currently grounded was 
not pressed, PA7 will be high. If the corresponding key was pressed, 
PA7 will be grounded and a logical "0" will be read. For example, in 




Fig. 1 .7: Games Board Elements (Prototype) 
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Fig. 1.8: 



The LEDs 



Figure 1.10, a key closure for key 1 has been detected. As in any scan- 
ning algorithm, a good program will debounce the key closures by im- 
plementing a delay. For more details on specific keyboard interfacing 
techniques, the reader is referred to reference C207 — Microprocessor 
Interfacing Techniques. 

In the actual design, the four inputs to the 74154 (PBO to PB3) are con- 
nected to VIA #3 of the SYM. PA7 is connected to the same VIA. The 
3.3 K resistor on the upper right-hand corner of Figure 1.9 pulls up 
PA7 and guarantees a logic level "1" as long as no grounding occurs. 

The GETKEY program, or a similar routine, is used by all the pro- 
grams in this book and will be described below. 

Tbe LEDs 

The connection of the fifteen LEDs is shown in Figure 1.11. Three 
7416 LED drivers are used to supply the necessary current (16 mA). 

The LEDs are connected to lines PAO to PA7 and PBO to PB7, ex- 
cepting PB6. These ports belong to VIA #1 of the SYM. An LED is lit 
by simply selecting the appropriate input pin of the corresponding 
driver. The resulting arrangement is shown in Figure 1.12 and Figure 
1.13. 
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Fig. 1 .9: Decoder Connection to Keyboard 
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Fig. 1 . 1 2: LED Arrangement on the Board 

The resistors shown in Figure 1 . 1 1 are 330-ohm resistors designed as 
current limiters for the 7416 gates. 

The output routines will be described in the context of specific 
games. 

Required Parts 

One 6" x 9" vector-board 
One 4-to-16 decoder (74154) 
Three inverting hex drivers (7416) 
One 24-pin socket 

Three 14-pin sockets (for the drivers) 

One 16-key keyboard, unencoded 

Fifteen 330-ohm resistors 

One 3.3 K-ohm resistor 

One decoupling capacitor (.1 mF) 

Fifteen LEDs 

One speaker 

One 50-ohm or 1 10-ohm resistor (for the speaker) 
Two 15"-20" long 16-conductor ribbon cables 
One package of wire-wrap terminal posts 
Wire-wrap wire 
Solder 

A soldering iron and a wire-wrapping tool will also be required. 
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Fig. 1.13: Detail of LED Connection to the Ports 



Assembly 



A suggested assembly procedure is the following: the keyboard can 
be glued directly to the perf board. Sockets and LEDs can be posi- 
tioned on the board and held in place temporarily with tape. All con- 
nections can then be wire-wrapped. In the case of the prototype, the 
connections to the keyboard were soldered in order to provide reliable 
connections since they were not designed as wire-wrap leads. Wire- 
wrap terminal posts were used for common connections. 

Additionally, on the prototype two sockets were provided for con- 
venience when attaching the ribbon cable connector to the Games 
Board. They are not indispensable, but their use is strongly suggested 
in order to be able to conveniently plug and unplug cables. (They ap- 
pear in the top left corner of the photograph in Figure 1.14.) A 14-pin 
socket and a 16-pin socket are used for this purpose. Wire-wrap ter- 
minal posts can be used instead of these sockets to attach the ribbon 
cable directly to the perf board. The other end of the ribbon cable is 
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Fig. 1.14: Games Board Detail 




simply attached to the edge connectors of the SYM. When connecting 
the ribbon cable at either end, always be very careful to connect it to 
the appropriate pins (do not connect it upside down). The Games 
Board derives its power from the SYM through the ribbon cable con- 
nection. Connecting the cable in reverse will definitely have adverse 
effects. 

The speaker may be connected to any one of the output drivers 
PB4, PB5, PB6, or PB7 of VIA #3. Each of these output ports is 
equipped with a transistor buffer. A 1 10-ohm current-limiting resistor 
is inserted in series with the speaker. 

THE KEYBOARD INPUT ROUTINE 

This routine, called "GETKEY," is a utility routine which will scan 
the keyboard and identify the key that was pressed. The correspond- 
ing code will be contained in the accumulator. It has provisions for 
bounce, repeat, and rollover. 

Keyboard bounce is eliminated by implementing a 50 ms delay upon 
detection of key closure. 

The repeat problem is solved by waiting for the key currently 
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pressed to be released before a new value is accepted. This cor- 
responds to the case in which a key is pressed for an extended period 
of time. Upon entering the GETKEY routine, a key might already be 
depressed. It will be ignored until the program detects that a key is no 
longer pressed. The program will then wait for the next key closure. If 
the processing program using the GETKEY routine performs long 
computations, there is a possibility that the user may push a new key 
on the keyboard before GETKEY is called again. This key closure will 
be ignored by GETKEY, and the user will have to press the key again. 

Most of the programs described in this book have audible prompts 
in the form of a tone which is generated every time the player should 
respond. Note that when a tone is being generated or during a delay 
loop in a program, pressing a key will have absolutely no effect. 
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Fig. 1 . 1 5: VIA Connection to Keyboard Decoder 
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The hardware configuration for the GETKEY routine is shown in 
Figure 1.9. The corresponding input/output chip on the SYM is 
shown in Figure 1.15. VIA #3 of the SYM board is used to com- 
municate with the keyboard. Port B of the VIA is configured for out- 
put and lines through 3 are gated to the 74154 (4-to-16 decoder), 
connected to the keyboard itself. The GETKEY routine will output 
the hexadecimal numbers "0" through "F," in sequence, to the 
74154. This will result in the grounding of the corresponding output 
line of the 74154. If a key is pressed, bit 7 of VIA #3 of Port A will be 
grounded. The program logic is, therefore, quite simple, and the cor- 
responding flowchart is shown in Figure 1.16. 

The program is shown in Figure 1.17. Let us examine it. The 
GETKEY routine can be relocated, i.e., it may be put anywhere in the 
memory. In order to conserve space, it has been located at memory 
locations 100 to 12E. It is important to remember that this is the low 
stack memory area. Any user programs which might require a full 
stack would overwrite this routine and thus destroy it. To prevent this 
possibility, it could be located elsewhere. For all of the programs that 
will be developed in this book, however, this placement is adequate. 
The first four instructions of the routine condition the data direction 
registers of VIA #3. The data direction register for Port A is set for in- 
put (all zeroes), while the data direction register for Port B is set for 
output (all ones). This is illustrated in Figure 1.15. 

LDA #0 
STA DDR3A 
LDA #$FF 
STA DDR3B 

Two instructions are required to test bit 7 of Port 3A, which in- 
dicates whether a key closure has occurred: 

START BIT PORT 3 A 

BPL START 

The key counter is initially set to the value 15, and will be decremented 
until a key closure is encountered. Index register X is used to contain 
this value, as it can readily be decremented with the DEX instruction: 

RSTART LDX #15 
This value (15) is then output to the 74154 and results in the selection 
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Fig. 1.17: GETKEY Program 



of line 17 connected to key 15 ("F"). The BIT instruction above is 
used to test the condition of bit 7 of Port 3A to determine whether this 
key has been pressed. 

NXTKEY STX PORT3B 
BIT PORT3A 
BPL BOUNCE 

If the key were closed, a branch would occur to "BOUNCE," and a 



17 



ADVANCED 6502 PROGRAMMING 



delay would be implemented to debounce it; otherwise, the counter is 
decremented, then tested for underflow. As long as the counter does 
not become negative, a branch back occurs to location NXTKEY. 
This loop is repeated until a key is found to be depressed or the 
counter becomes negative. In that case, the routine loops back to loca- 
tion RSTART, restarting the process: 



Note that this will result in the detection of the highest key pressed 
in the case in which several keys are pressed simultaneously. In other 
words, if keys "F" and "3" were pressed simultaneously, key "F" 
would be identified as depressed, while key "3" would be ignored. 
Avoiding this problem is called multiple-key rollover protection and 
will be suggested as an exercise: 

Exercise 1-1: In order to avoid the multiple-key rollover problem, 
modify the GETKEY routine so that all 15 key closures are monitored. 
If more than one key is pressed, the key closure is to be ignored until 
only one key closure is sensed. 

Once the key closure has been identified, the corresponding key 
number is saved in the accumulator. A delay loop is then implemented 
in order to provide a 50 ms debouncing time. During this loop, the key 
closure is constantly monitored. If the key is released, the routine is 
restarted. The delay itself is implemented using a standard two-level, 
nested loop technique. 



BMI RSTART 

DEX 

BNE LP2 

DEY 

BNE LP1 



Exercise 1-2: The value used for the outer loop counter ("$12, " or 12 
hexadecimal) may not be quite accurate. Compute the exact duration 



DEX 

BPL NXTKEY 
BMI RSTART 



BOUNCE 



TXA 

LDY #$12 
LDX #$FF 
BIT PORT3A 



LP1 
LP2 
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of the delay implemented by the instructions above, using the tables 
showing the duration of each instruction in the Appendix. 

SUMMARY 



Executing the games programs requires a simple Games Board which 
provides the basic input/output facilities. The required hardware and 
software interface has been described in this chapter. Photographs of 
the assembled board which evolved from the prototype are shown in 
Figures 1.18 and 1.19. 



7 



8 



9 
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10 1 1 12 13 14 15 
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nmm t 

SDH 



Fig. 1.18: "Production" Games Board 




-'L 



mmmm 
mmnm 

BAB A 

mmmn 



Fig. 1.19: Removing the Cover 
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2. Generating Square Waves 
(Music Player) 



INTRODUCTION 

This program will teach you how to synthesize frequencies by 
generating square waves. It will use a table-driven algorithm to generate 
tones and play music. It will make systematic use of indexed addressing 
techniques. 

THE RULES 

This game allows music to be played directly on the keyboard of a 
computer. In addition, the program will simultaneously record the 
notes that are played, and then automatically play them back upon re- 
quest. Keys "0" through "C" on the keyboard are used to play the 
musical notes. (See Figure 2.1.) Key "D" is used to specify a rest. Key 
"E" is used to play back the musical sequence stored in the memory. 
Finally, key "F" is used to clear the memory, i.e., to start a new 
game. The following paragraph will describe the usual sequence of the 
game. 



A 


B 


C 


D 


(A) 


(B) 


(C) 


(REST) 


1 


2 


3 


E 


(A) 


(B) 


(C) 


(PBK) 


4 


5 


6 


F 


(D) 


(E) 


(F) 


(RST) 


7 


8 


9 





(F#) 


(G) 


(Git) 


(G) 



KEY 
NUMBER 


NOTE 




KEY 
NUMBER 


NOTE 





G 




8 


G 


1 


A 




9 


G# 


2 


B 




A 


A 


3 


C 




B 


B 


4 


D 




C 


C 


5 


E 




D 


REST 










PLAY 


6 


F 




E 


BACK 


7 


F# 




F 


RESTART 



Fig. 2. 1 : Playing Music on the Keyboard 
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9th Symphony: 

5—5—6—8—8—6—5— 
5—6—8—8—6—5—4- 
5—3—4—6—5—3—4— 


4 — 
-3- 
6 — 


3 — 
-3- 
5 — 


3 — 4- 
-4 — 5 

4 — 3- 


-5- 
— 4 
-4- 


-5- 

— 3 

- D 


-4- 
— 3 


-4 — 
-D- 


D — 
-A — 


5 — 
-4— 


Clementine: 

3— 3— 3-D— 2— D— 5- 
8— 6— 5— 4— D— D— D- 
3— D— 3— 5— 4— D— D- 


-5- 
-4- 
-2- 


-5- 
-5- 
-3- 


-D — 3- 
-6 — D 
4 — 3 


— D 

— 6 


-3 
— D 


— 5- 

— 5- 


-8 — 
— 4 — 


D — 
5 — 


D — 
D — 


Frere Jacques: 

3—4—5—3—3—4—5— 
A— 8—6— 5— D— 3— D— 
2— D— 3— D— D— D— 3- 


3- 
-8- 
- D - 


-5- 
-A- 
-2- 


-6—8- 
-8 — 6- 
- D — 3 


— D 
-5- 


-5 
— D 


— 6- 

— 3- 


-8 — 
— D — 


D — 
3 — 


8 — 
D — 


Jingle Bells: 

5— 5—5— D— 5—5— 5 — 

6— 6—6—6—5—5—5— 


D — 
8 — 


-5- 
8 — 


-8 — 3- 
6 — 4- 


-4- 
-3 


-5- 


— D - 


— D — 


D — 


6 — 


London Bridge: 

8— A— 8— 6— 5—6— 8 - 
A— 8— 6— 5—6— 8— D- 


D — 
-4- 


-4- 
- D- 


-5 — 6- 
-8 — D 


-D 
— 5 


— 5 

— 3 


— 6- 


-8- 


D- 


8 — 


Mary Had a Little Lamb: 

5—4—3—4—5—5—5— 
4—3—4—5—5—5—5— 


D — 
4 — 


4 — 
4 — 


4 — 4- 

5 — 4- 


— D - 
-3 


-5- 


- 8- 


-8 — 


D — 


5 — 


Row Row Row Your Boat: 

3 — D — 3 — D — 3 — 4 — 5 — 
C — 8 — 8 — 5 — 5 — 3 — 3 — 


D- 
8 — 


-5 — 
6 — 


4 — 5- 

5 — 4- 


-6- 
-3 


-8- 


-D- 


-D — 


D — 


C — 


Silent Night: 

8 — D — D — A — 8 — D — 5- 
D — D — D — 3 — D — D — 3 - 
D — 8 — D — D — C — D — 8- 


-D — 
— D 
-5- 


-D- 
— B 
-8- 


-D — 8 
— D — 
-D — 6 


— D 
D — 

— D 


— D 
D — 

— 4 


— A 

-C- 

— D 


— 8- 

— D — 

— 3 


-D- 
D — 


-5 — 
C — 


Twinkle Twinkle Little Star: 

3 — 3 — 8 — 8 — A — A — 8 - 
8— 6— 6— 5—5— 4— D— 
5—5—4—4—3 


- D - 
3 — 


-6- 
3 — 


-6 — 5- 
8 — 8- 


-5- 
-A- 


-4- 
-A- 


-4- 
-8- 


-3 — 
- D — 


D — 
6 — 


8 — 
6 — 



Fig. 2.2: Simple Tunes for Computer Music 
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A TYPICAL GAME 

Press key "F" to start a new game. A three-note warble will be 
heard, confirming that the internal memory has been erased. Play the 
tune on keys "0" through "D" (using the notes and the rest features). 
Up to 254 notes may be played and stored in the memory. At any 
point, the playback key ("E") may be pressed and the notes and rests 
that were just played on the keyboard (and simultaneously stored in 
the memory) will be reproduced. The musical sequence may be played 
as many times as desired by simply pressing key "E." Examples of 
simple tunes or musical sequences that can be played on the computer 
are shown in Figure 2.2. 

THE CONNECTIONS 

This game uses the keyboard plus the speaker. The speaker is con- 
nected in series to one of the buffered output lines of PORT B of VIA 
#3, via a 110-ohm current limiting resistor. PB4, PB5, PB6, or PB7 of 
VIA #3 are used, as they are driven by a transistor buffer on the SYM. 
For higher quality music, it is recommended that the speaker be placed 
in a small box-type enclosure. The value of the resistor may also be 
adjusted for louder volume (without going below 50-ohm) to limit the 
current in the transistor. 

THE ALGORITHM 

A tone (note) is simply generated by sending a square wave of the 
appropriate frequency to the speaker, i.e., by turning it on and off at 
the required frequency. This is illustrated in Figure 2.3. The length of 
time during which the speaker is on or off is known as the half-period. 
In this program, the frequency range of 195 to 523 Hertz is provided. 
If N is the frequency, the period T is the inverse of the frequency, or: 

T = 1/N 

Therefore, the half-periods will range from 1/(2 x 195) = .002564 to 




SQUARE WAVE SPEAKER 
Fig. 2.3: Generating a Tone 
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1/(2 X 523) — .000956 seconds. A classic loop delay will be used to im- 
plement the required frequency. 

Actual computations for the various program parameters will be 
presented below. 

THE PROGRAM 

The program is located at memory addresses 200 through 2DD, and 
the recorded musical sequence or tune is stored starting at memory 
location 300. Up to 254 notes may be recorded in 127 bytes. 

Data Structures 

Three tables are used in this program. They are shown in Figure 2.4. 
The recorded tune is stored in a table starting at address 300. The note 
constants, used to establish the frequency at which the speaker will be 
toggled, are stored in a 16-byte table located at memory address 2C4. 
The note durations, i.e., the number of half -cycles required to imple- 
ment a uniform note duration of approximately .21 second, are stored 
in a 16-byte table starting at memory address 2D1. Within the tune 
table, two "nibble"-pointers are used: PILEN during input and PTR 
during output. (Each 8-bit byte in this table contains two notes.) In 
order to obtain the actual table entry from the nibble-pointer, the 
pointer is simply shifted one bit position to the right. The remaining 
value becomes a byte-pointer, while the bit shifted into the carry flag 
specifies the left or the right half of the byte. The two tables called 
CONSTANTS and NOTE DURATIONS are simply reference tables 
used to determine the half-frequency of a note and the number of 
times the speaker should be triggered once a note has been identified 
or specified. Both of these tables are accessed indirectly using the X 
register. 

Some Music Theory 

A brief survey of general music conventions is in order before 
describing the actual program. The frequencies used to generate the 
desired notes are derived from the equally tempered scale, in which the 
frequencies of succeeding notes are in the ratio: 



The frequencies for the middle C octave are given in Figure 2.5. 
When computing the corresponding frequencies of the higher or the 



1 : 
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100 



200 



300 



400 



500 



AC00 



AC02 



GETKEY 
ROUTINE 



MUSIC 
PROGRAM 



RECORDED 
TUNE 



300 
(TABEG) 





2C4 


NOTE 




CONSTANTS 


2D0 




2D1 


NOTE 




DURATIONS 


?DD 




OPB 



DDRB 



Fig. 2.4: Memory Map 

lower octave, they are simply obtained by multiplying by two, or 
dividing by two, respectively. 



Generating the Tone 

The half-period delay for the square wave sent to the speaker is im- 
plemented using a program loop with a basic 10 n& cycle time. In the 
program, the "loop index," or iteration counter is used to count the 
number of 10 /us cycles executed. The loop will result in a total delay 
of: 



(loop index) x 10 - 1 microseconds 
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NOTE 


FREQUENCY (HERTZ) 


A 


220.00 


A# 


223.08 


B 


246.94 


C 


261.62 


at 


277.18 


D 


293.66 


Uff 


311.13 


E 


329.63 


F 


349.23 


F# 


369.99 


G 


391.99 


G# 


415.30 



Fig. 2.5: Frequencies for the Middle C Octave 

On the last iteration of the loop (when the loop index is 
decremented to zero), the branch instruction at the end will fail. This 
branch instruction will execute faster, so that one microsecond 
(assuming a 1 MHz clock) must be subtracted from the total delay 
duration. The tone generation routine is shown below: 



TONE 



FL2 
FL1 



STA 


FREQ 


LDA 


#$FF 


STA 


DDRB 


LDA 


#$00 


LDX 


DUR 


LDY 


FREQ 


DEY 




CLC 




BCC 


. + 2 


BNE 


FL1 


EOR 


#$FF 


STA 


OPB 


DEX 




BNE 


FL2 


RTS 





INNER 
LOOP 



OUTER 
LOOP 



Note the "classic" nested loop design. Every time it is entered, the 
outer loop adds an additional thirteen microseconds delay: 14 
microseconds for the extra instructions (LDY, EOR, STA, DEX, and 
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BNE), minus one microsecond for responding to the unsuccessful in- 
ner loop branch. The total outer loop delay introduced is therefore: 

(loop index) x 10 + 13 microseconds 

Remember that one pass through the outer loop represents only a half- 
period for the note. 

Computing the Note Constants 

Let "ID" be the inner loop delay and "OD" be the outer loop addi- 
tional delay. It has been established in the previous paragraph that the 
half-period is T/2 = (loop index) X 10 + 13 or, 

T/2 = (loop index) x ID + OD 

The note constant stored in the table is the value of the "index" re- 
quired by the program. It is easily derived from the equation that: 

note constant = loop index = (T - 2 x OD)/2 x ID 

The period may be expressed in function of the frequency as T = 1/N 
or, in microseconds: 

T = 10VN 

Finally, the above equation becomes: 

note constant = (10VN - 2 X OD)/2 X ID 

For example, let us compute the note constant corresponding to the 
frequency for middle C. The frequency corresponding to middle C is 
shown in Figure 2.5. It is 261.62 Hertz. The "OD" delay has been 
shown above to be 13 microseconds, while "ID" was set to 10 
microseconds. The note constant equation becomes: 

note constant = (10VN - 2 x 13)/2 x 10 
1000000/261.62 - 26 
20 

= 190 (or BE in hexadecimal) 
It can be verified that this corresponds to the fourth entry in the table 
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NOTE 




NOTE 


CONSTANT 


NOTE 


CONSTANT 






/C 


BE 










1 D 


A9 










I E 


96 






BELOW ) 
MIDDLE Ci 
( B 


FE 
E2 
C9 


J F 

middle c / f# 
Jg 

I Git 
1 A 

\B 


8E 
86 
7E 
77 
70 
64 


ABOVE <_ 
MIDDLE C< 


5E 



Fig. 2.6: Note Constants 



at address NOTAB (see Figure 2.9 at the end of the listing, at address 
02C4). The note constants are shown in Figure 2.6. 

Exercise 2-1: Using the table in Figure 2. 6, compute the corresponding 
frequency, and check to see if the constants have been chosen correctly. 

Computing the Note Durations 

The DURTAB table stores the note durations expressed in numbers 
equivalent to the number of half-cycles for each note. These durations 
have been computed to implement a uniform duration of approximately 
.2175 second per note. If D is the duration and T is the period, the 
following equation holds: 

D x T = .2175 

where D is expressed as a number of periods. Since, in practice, half- 
periods are used, the required number D' of half-periods is: 

D' = 2D = 2 X .2175 X N 

For example, in the case of the middle C: 

D = 2 x .2175 x 261.62 = 133.8 ^ 1 14 decimal (or 72 hexadecimal) 

Exercise 2-2: Compute the note durations using the equation above, 
and the frequency table in Figure 2.5 (which needs to be expanded). 
Verify that they match the numbers in table DURTAB at address 2D1. 
(See Figure 2.9) 
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Program Implementation 

The program has been structured in two logical parts. The cor- 
responding flowchart is shown in Figure 2.7. The first part of the pro- 
gram is responsible for collecting the notes and begins at label 



3 BEEPS FOR 
RESTART 




^ START ^ 



1 



GET KEY NUMBER 




YES S KEY NUMBER ' 
= 15? 






YES 




PLAYEM 


PTR 


= 



CARRY = LOW 
ORDER BIT OF PTR 




/ PLAY NOTE A 
I NUMBER J 

r 



NOTE NUMBER = 
NOT "E" TABLE 
(TEMP) SHIFTED 

•RIGHT 4 PLACES 




NOTE NUMBER = 
NOTE TABLE (TEMP) 















BETWEEN— NOTE 
DELAY 






PTR = 


PTR + 1 




Fig. 2.7: Music Flowchart 
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SHIFT PILEN 
LOW ORDER BIT 
INTO CARRY 



TEMP = PILEN 
SHIFTED RIGHT ONE 
POSITION 




YES 




NO 



NOTE TABLE (TEMP) 
- KEY NUMBER 









SHIFT KEY NUMBER 
LEFT 4 PLACES 



NOTE TABLE (TEMP) 
= [NOTE TABLE (TEMP ) 
OR KEY NUMBER] 



PILEN = PILEN + 1 

Fig. 2.7: Music Flowchart (Continued) 
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"NUMKEY." (The program is shown in Figure 2.9). The second part 
begins at the label "PLAYEM" and its function is to play the stored 
notes. Both parts of the program use the PLAYNOTE subroutine 
which looks up the note and duration constants, and plays the note. 
This routine begins at the label "PLAYIT," and its flowchart is 
shown in Figure 2.8. 

(PLAY NOTE 
NUMBER 



USE NOTE NUMBER 
TO LOOK UP 
DURATION 

~T~ 



USE NOTE NUMBER 
TO LOOK UP NOTE 
CONSTANT 



fl 



LOOP FROM TO 
NOTE CONSTANT 
TO WASTE TIME 



TOGGLE SPEAKER 



I 



DURATION = 
DURATION -I 




Fig. 2.8: PLAYIT Flowchart 
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( MUSIC PLAYER PROGRAM 

( USES 16 - KEY KEYBOARD AND BUFFERED SPEAKER 
(PROGRAM PLAYS STORED MUSICAL NOTES. 
(THERE ARE TWO MODES OF OPERATION: INPUT AND PLAY. 
(INPUT MODE IS THE DEFAULT, AND ALL NON-COMMAND KEYS 
(PRESSED (O-D) ARE STORED FOR REPLAY. IF AN OVERFLOW 
(OCCURS, THE USER IS WARNED WITH A THREE-TONE WARNING. 
(THE SAME WARBLING TONE IS ALSO USED TO SIGNAL A 
(RESTART OF THE PROGRAM. 



GETKEY 


=*100 




PILEN 


=*00 


(LENGTH OF NOTE LIST 


TEMP 


=*oi 


(TEMPORARY STORAGE 


PTR 


=*02 


(CURRENT LOCATION IN LIST 


FREQ 


=*03 


(TEMPORARY STORAGE FOR FREQUENCY 


DUR 


=*04 


(TEMP STORAGE FOR DURATION 


TABEG 


=*300 


(TABLE TO STORE MUSIC 


OPB 


=*ACOO 


(VIA OUTPUT PORT B 


DDRB 


=*AC02 


(VIA PORT B DIRECTION REGISTER 




= «200 


(ORIGIN 



COMMAND LINE INTERPRETER 

*F AS INPUT MEANS RESET POINTERS, START OVER* 
*E MEANS PLAY CURRENTLY STORED NOTES 
ANYTHING ELSE IS STORED FOR REPLAY. 



0200! 


A9 


00 




START 


LDA 


♦0 


(CLEAR NOTE LIST LENGTH 


0202! 


85 


00 






STA 


PILEN 




0204! 


18 








CLC 




(CLEAR NIBBLE MARKER 


0205! 


20 


00 


01 


NXKEY 


JSR 


GETKEY 




0208! 


C9 


OF 






CMP 


*15 


(IS KEY *15? 


020A! 


DO 


05 






BNE 


NXTST 


(NO, DO NEXT TEST 


020C! 


20 


87 


02 




JSR 


BEEP3 


(TELL USER OF CLEARING 


020F! 


90 


EF 






BCC 


START 


(CLEAR POINTERS AND START OVER 


0211! 


C9 


OE 




NXTST 


CMP 


*14 


(IS KEY *14? 


0213! 


DO 


06 






BNE 


NUMKEY 


(NO, KEY IS NOTE NUMBER 


0215! 


20 


48 


02 




JSR 


PLAYEM 


(PLAY NOTES 


0218! 


18 








CLC 






0219! 


90 


EA 






BCC 


NXKEY 


(GET NEXT COMMAND 










(ROUTINE TO LOAD NOTE 


LIST WITH NOTES 


021B! 


85 


01 




, 

NUMKEY 


STA 


TEMP 


(SAVE KEY, FREE A 


021D! 


20 


70 


02 




JSR 


PLAYIT 


(PLAY NOTE 


0220! 


A5 


00 






LDA 


PILEN 


(GET LIST LENGTH 


0222! 


C9 


FF 






CMP 


• *FF 


(OVERFLOW? 


0224! 


DO 


05 






BNE 


OK 


(NO, ADD NOTE TO LIST 


0226! 


20 


87 


02 




JSR 


BEEP3 


(YES, WARN USER 


0229! 


90 


DA 






BCC 


NXKEY 


(RETURN TO INPUT MODE 


022B! 


4A 






OK 


LSR 


A 


(SHIFT LOU BIT INTO NIBBLE POI 


022C! 


A8 








TAY 




(USE SHIFTED NIBBLE POINTER AS 
















(BYTE INDEX 


022D! 


A5 


01 






LDA 


TEMP 


(RESTORE KEY* 


022F! 


BO 


09 






BCS 


FINBYT 


(IF BYTE ALREADY HAS 1 NIBBLE, 
















(FINISH IT AND STORE 


0231! 


29 


OF 






AND 


♦Z00001111 


(1ST NIBBLE, MASK HIGH NIBB 


0233! 


99 


00 


03 




STA 


TABEG, Y 


(SAVE UNFINISHED 1/2 BYTE 


0236! 


E6 


00 






INC 


PILEN 


(POINT TO NEXT NIBBLE 


0238! 


90 


CB 






BCC 


NXKEY 


(GET NEXT KEYSTROKE 


023 A! 


OA 






FINBYT 


ASL 


A 


(SHIFT NIBBLE 2 TO HIGH ORDER 


023B! 


OA 








ASL 


A 




023C! 


OA 








ASL 


A 




023D! 


OA 








ASL 


A 




023E! 


19 


00 


03 




ORA 


TABEG, Y 


(JOIN 2 NIBBLES AS BYTE 


0241! 


99 


00 


03 




STA 


TABEG, Y 


( . . .AND STORE. 


0244! 


E6 


00 






INC 


PILEN 


(POINT TO NEXT NIBBLE IN NEXT 


9246! 


90 


BD 






BCC 


NXKEY 


(RETURN 



Fig. 2.9: Music Program 
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ROUTINE TO PLAY NOTES 



02481 


A2 


00 




PLAYEM 


LDX 


#0 


(CLEAR POINTER 


024 A* 


86 


02 






STX 


PTR 




024C J 


A5 


02 






LDA 


PTR 


(LOAD ACUM W/CURRENT PTR VAL 


024E: 


4A 






LOOP 


LSR 


A 


(SHIFT NIBBLE INDICATOR INTO CARRY 


024F* 


AA 








TAX 




(USE SHIFTED NIBBLE POINTER 
















(AS BYTE POINTER 


0250* 


BD 


00 


03 




LDA 


TABEGiX 


(LOAD NOTE TO PLAY 


0253* 


BO 


04 






BCS 


ENDBYT 


(LOW NIBBLE USEDr GET HIGH 


0255* 


29 


OF 






AND 


♦X00001111 


(MASK OUT HIGH BITS 


0257: 


90 


06 






BCC 


FINISH 


(PLAY NOTE 


0259t 


29 


FO 




ENDBYT 


AND 


♦X11110000 


( THROW AWAY LOW NIBBLE 


025B: 


4A 








LSR 


A 


(SHIFT INTO LOW 


025CI 


4A 








LSR 


A 




025D : 


4A 








LSR 


A 




025E : 


4A 








LSR 


A 




025F : 


20 


70 


02 


FINISH 


JSR 


PLAYIT 


(CALCULATE CONSTANTS & PLAY 


0262* 


A2 


20 






LDX 


*$20 


(BETWEEN-NOTE DELAY 


0264 1 


20 


9C 


02 




JSR 


DELAY 




0267 : 


£6 


02 






INC 


PTR 


(ONE NIBBLE USED 


0269 : 


A5 


02 






LDA 


PTR 






re 
L3 


00 






CMP 


PILEN 


ftND Or LIST? 


026D : 


90 








BCC 


LOOP 


iNUi be. 1 NC.A 1 NU lc 


Uior ♦ 


Art 






t 


RTS 




( DONE 










(ROUTINE TO DO TABLE 


LOOK UP. SEPARATE REST 


0270? 


C9 


OD 




PLAYIT 


CMP 


*13 


(REST? 


0272 : 


BO 


06 






BNE 


SOUND 


(NO. 


0274 : 


A2 


54 






LDX 


#*54 


(DELAY=NOTE LENGTH=.21SEC 


0276 : 


20 


9C 


02 




JSR 


DELAY 




0279 * 


60 








RTS 






027A * 


AA 






SOUND 


TAX 




(USE KEY* AS INDEX,. 


027B* 


BD 


Dl 


02 




LDA 


DURTABrX 


( . . .TO FIND DURATION. 


027E* 


85 


04 






STA 


DUR 


(STORE DURATION FOR USE 


0280 : 


BD 


C4 


02 




LDA 


NOTABrX 


(LOAD NOTE VALUE 


0283: 


20 


A8 


02 




JSR 


TONE 




0286 : 


60 








RTS 














! ROUTINE TO MAKE 3 TONE SIGNAL 


0287 ♦ 


A9 


FF 




BEEP3 


LDA 


♦ ♦FF 


(DURATION FOR BEEPS 


0289 : 


85 


04 






STA 


DUR 




028B : 


A9 


4B 






LDA 


♦ *4B 


(CODE FOR E2 


028D: 


20 


A8 


02 




JSR 


TONE 


(1ST NOTE 


0290 : 


A9 


38 






LDA 


**38 


(CODE FOR D2 


0292: 


20 


A8 


02 




JSR 


TONE 




0295 : 


A9 


4B 






LDA 


**4B 




0297 : 


20 


A8 


02 




JSR 


TONE 




029AI 


18 








CLC 






029B: 


60 








RTS 














(VARIABLE-LENGTH DELAY 


029C: 


AO 


FF 




DELAY 


LDY 


#*FF 




029E: 


EA 






DLY 


NOP 






029F: 


DO 


00 






BNE 


.+2 




02A1: 


88 








DEY 






02A2: 


DO 


FA 






BNE 


DLY 


(10 US LOOP 


02A4: 


CA 








DEX 






02A5: 


DO 


F5 






BNE 


DELAY 


(LOOP TIME = 2556*CX3 


02A7: 


60 








RTS 







(ROUTINE TO MAKE TONE* # OF 1/2 CYCLES IS IN 'DUR', 
(AND 1/2 CYCLE TIME IS IN A. LOOP TIME=20*CA3+26 US 



Fig. 2.9: Music Program (Continued) 
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(SINCE TWO RUNS THROUGH THE OUTER LOOP MAKES 
(ONE CYCLE OF THE TONE. 



02A8! 


85 


03 




TONE 


STA 


FREQ 


(FREQ IS TEMP FOR * OF CYCLES 


02AA: 


A9 


FF 






LDA 


#*FF 


( SET UP BATA DIRECTION REG 


02AC! 


an 


02 


AC 




STA 


BDRB 




02af: 


A9 


00 






LDA 


♦ *00 


(A IS SENT TO PORT, START HI 


02B1 : 


A6 


04 






LDX 


bur 




02B3! 


A4 


03 




FL2 


LBY 


FREQ 




02B5! 


88 






FLl 


DEY 






02B6: 


18 








CLC 






02B7! 


90 


00 






BCC 


.+2 




02B9! 


no 


FA 






BNE 


FLl 


( INNER r 10 US LOOP 


02BB: 


49 


FF 






EOR 


#*FF 


? COMPLEMENT I/O PORT 


02BD * 


8D 


00 


AC 




STA 


ORB 


( . . .AND SET IT 


02C0! 


CA 








DEX 






02C1 : 


no 


FO 






BNE 


FL2 


i OUTER LOOP 


02C3! 


60 








RTS 







( TABLE OF NOTE CONSTANTS 
(CONTAINS: 

(COCTAVE BELOW MIDDLE C3 S G p A p B 

(COCTAVE OF MIDDLE C3 ! C p D p Ep F r F# p G p G# p A p B 

SCOCTAUE ABOVE MIDDLE C] ! C 



02C4! FE 

02C5t E2 

02C6! C9 

02C7! BE 

02C8! A9 

02C9! 96 

02CA: 8E 

02CB: 86 

02CC! 7E 

02CD! 77 

02CES 70 

02CF! 64 

02B0! 5E 



NOTAB .BYT *FE p *E2 p *C9 p *BE , *A9 , *96 t *8E 



. BYT *86p*7Ep*77p*70p*64p*5E 



(TABLE OF NOTE DURATIONS IN # OF 1/2 CYCLES 
(SET FOR A NOTE LENGTH OF ABOUT .21 SEC. 



02D1 : 
02D2! 

02D3: 6B 

02D4: 72 

02D5: 80 

02D6: 8F 

02D7: 94 

02D8S Al 

02D91 A A 

02DA: BS 

02DB! BF 

02DC: D7 

02DD: E4 

SYMBOL TABLE: 



60 



DURTAB * BYT *55 p *60 , *6B p %72 p *80 p $8F , *94 



♦ BYT *A1 p*AAp*B5p*BFp*D7p*E4 



GETKEY 


0100 


PILEN 


0000 


TEMP 


0001 


PTR 


0002 


FREQ 


0003 


DUR 


0004 


TABEG 


0300 


OPB 


ACOO 


DDRB 


AC02 


START 


0200 


NXKEY 


0205 


NXTST 


0211 


NUMKEY 


021B 


OK 


022B 


FINBYT 


023A 


PLAYEM 


0248 


LOOP 


024E 


ENDBYT 


0259 


FINISH 


025F 


PLAYIT 


0270 


SOUND 


027A 


BEEF'3 


0287 


DELAY 


029C 


DLY 


029E 


TONE 


02A8 


FL2 


02B3 


FLl 


02B5 


NOTAB 


02C4 


HURTAB 


02B1 







Fig. 2.9: Music Program (Continued)' 
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The main routines are called, respectively, NXKEY, NUMKEY, 
and BEEP3 for the note-collecting program, and PLAYEM and 
DELAY for the note-playing program. Finally, common utility 
routines are TONE and PLAYIT. 

Let us examine these routines in greater detail. The program resides 
at memory addresses 200 and up. Note that the program, like most 
others in this book, assumes the availability of the GETKEY routine 
described in Chapter 1 . 

The operation of the NXKEY routine is straightforward. The next 
key closure is obtained by calling the GETKEY routine: 

START LDA #0 

STA PILEN Initialize length of list to 

CLC 

NXKEY JSR GETKEY 

The value read is then compared to the constants "15" and "14" for 
special action. If no match is found, the constant is stored in the note 
list using the NUMKEY routine. 

CMP #15 
BNE NXTST 
JSR BEEP3 
BCC START 
NXTST CMP #14 

BNE NUMKEY 
JSR PLAYEM 
CLC 

BCC NXKEY 

Exercise 2-3: Why are the last two instructions in this routine used in- 
stead of an unconditional jump? What are the advantages and disad- 
vantages of this technique? 

Every time key number 15 is pressed, a special three-tone routine 
called BEEP3 is played. The BEEP3 routine is shown at address 0287. 
It plays three notes in rapid succession to indicate to the user that the 
notes in the memory have been erased. The erasure is performed by 
resetting the list length PILEN to zero. The corresponding routine ap- 
pears below: 
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BEEP3 



LDA #$FF 
STA DUR 
LDA #$4B 
JSR TONE 
LDA #$38 
JSR TONE 
LDA #$4B 
JSR TONE 
CLC 
RTS 



Beep duration constant 

Code for E2 
1st note 
Code for D2 
2nd note 
Code for E2 
3rd note 



Its operation is straightforward. 

The NUMKEY routine will save the code corresponding to the note 
in the memory. As in the case of a Teletype program, the computer 
will echo the character which has been pressed in the form of an audi- 
ble sound. In other words, every time a key has been pressed, the pro- 
gram will play the corresponding note. This is performed by the next 
two instructions: 



NUMKEY STA TEMP 
JSR PLAYIT 

The list length is then checked for overflow. If an overflow situation is 
encountered, the player is advised through the use of the three-tone se- 
quence of BEEP3: 



LDA PILEN 
CMP #$FF 
BNE OK 
JSR BEEP3 
BCC NXKEY 



Get length of list 

Overflow? 

No: add note to list 

Yes: warn player 

Read next key 



Otherwise, the new nibble (4 bits) corresponding to the note identifica- 
tion number is shifted into the list: 



OK LSR A Shift low bit into 

nibble pointer 
TAY Use as byte index 

LDA TEMP Restore key # 

Note that the nibble-pointer is divided by two and becomes a byte in- 
dex. It is then stored in register Y, which will be used later to perform 
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an indexed access to the appropriate byte location within the table 
(STA TABEG.Y). 

Depending on the value which has been shifted into the carry bit, the 
nibble is stored either in the high end or in the low end of the table's 
entry. Whenever the nibble must be saved in the high-order position of 
the byte, a 4-bit shift to the left is necessary, which requires four in- 
structions: 

BCS FINBYT Test if byte has a nibble 
AND #°7b00001111 Mask high nibble 
STA TABEG.Y Save 
INC PILEN Next nibble 

BCC NXKEY 
FINBYT ASL A 
ASL A 
ASL A 
ASL A 



Finally, it can be saved in the appropriate table address, 

ORA TABEG.Y 
STA TABEG.Y 

The pointer is incremented and the next key is examined: 



INC PILEN 
BCC NXKEY 



Let us look at this technique with an example. Assume: 

PILEN = 9 (length of list) 

TEMP = 6 (key pressed) 



The effect of the instructions is: 
OK LSR A 

TAY 

LDATEMP 
BCS FINBYT 



A will contain 4, C will con- 
tain 1 
Y = 4 
A = 6 

C is 1 and the branch occurs 
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The situation in the list is: 



BYTE 

o DISPLACEMENT 





NOTE 
1 


NOTE 





NOTE 
3 


NOTE 
2 




EMPTY 
4 





5 


7 


6 



4 



Fig. 2. 10: Entering a Note in the List 

Shift "6" into the high-order position of A: 

FINBYT ASL A 
ASL A 
ASL A 

ASL A A = 60 (hex) 

Write A into table: 

ORA TABEG, Y A = 6X (where X is the 
previous nibble in the table) 

STA TABEG, Y Restore old nibble with new 
nibble 

The Subroutines 

PLA YEM Subroutine 

The PLAYEM routine is also straightforward. The PTR memory 
location is used as the running nibble-pointer for the note table. As 
before, the contents of the running nibble-pointer are shifted to the 
right and become a byte pointer. The corresponding table entry is then 
loaded using an indexed addressing method: 
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PLAYEM LDX #0 

STX PTR PTR = 

LDA PTR 
LOOP LSR A 

TAX 

LDA TABEG.X 
BCS ENDBYT 
AND #%00001111 
BCC FINISH 
ENDBYT AND #% 111 10000 
LSR A 
LSR A 
LSR A 
LSR A 

Depending upon the value of the bit which has been shifted into the 
carry, either the high-order nibble or the low-order nibble will be ex- 
tracted and left-justified in the accumulator. The subroutine PLAYIT 
described below is used to obtain the appropriate constants and to 
play the note: 



FINISH 



JSR PLAY IT 



Play note 



A delay is then implemented between two consecutive notes, the run- 
ning pointer is incremented, a check occurs for a possible end of list, 
and the loop is reentered: 



LDX #$20 
JSR DELAY 
INC PTR 
LDA PTR 
CMP PILEN 
BCC LOOP 
RTS 



Delay constant 
Delay between notes 
One nibble used 

Check for end of list 
No: get next note 
Done 



PLAYIT Subroutine 

The PLAYIT subroutine plays the note or implements a rest, as 
specified by the nibble passed to it in the accumulator. This subroutine 
is called "PLAYNOTE" on the program flowchart. It merely looks 
up the appropriate duration for the note from table DURTAB, and 
saves it at address DUR (at memory location 4). It then loads the ap- 
propriate half-period value from the table at address NOTAB into the 
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A register, using indexed addressing, and calls subroutine TONE to 
play it: 



PLAYIT 



SOUND 



CMP #13 
BNE SOUND 
LDX #$54 
JSR DELAY 
RTS 
TAX 

LDA DURTAB.X 
STA DUR 
LDA NOTAB.X 
JSR TONE 
RTS 



Check for a rest 
No 

Delay = .21 sec (note duration) 
If rest was specified 

Use key # as index 
To look up duration 



TONE Subroutine 

The TONE subroutine implements the appropriate wave form 
generation procedure described above, and toggles the speaker at the 
appropriate frequency to play the specified note. It implements a 
traditional two-level, nested loop delay, and toggles the speaker by 
complementing the output port after each specified delay has elapsed: 

TONE STA FREQ 

A contains the half -cycle time on entry. It is stored in FREQ. The loop 
timing will result in an output wave-length of: 

(20 x A + 26) ms 

Port B is configured as output: 

LDA #$FF 
STA DDRB 

Registers are then initialized. A is set to contain the pattern to be out- 
put. X is the outer loop counter. It is set to the value DUR which 
contains the number of half cycles at the time the subroutine is called: 

LDA #$00 
LDX DUR 
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The inner loop counter Y is then initialized to FREQ, the frequency 
constant: 

FL2 LDY FREQ 

and the inner loop delay is generated as usual: 

FL1 DEY 
CLC 
BCC.+2 

BNE FL 1 10 jus inner loop 

Then the output port is toggled by complementing it: 

EOR #$FF 
STA OPB 

and the outer loop is completed: 

DEX 
BNE FL2 
RTS 

The DELAY subroutine is shown in Figure 2.9 at memory location 29C 
and is left as an exercise. 

SUMMARY 

This program uses a simple algorithm to remember and play tunes. 
All data and constants are stored in tables. Timing is implemented by 
nested loops. Indexed addressing techniques are used to store and 
retrieve data. Sound is generated by a square wave. 

EXERCISES 

Exercise 2-4: Change the note constants to implement a different range 
of notes. 

Exercise 2-5: Store a tune in memory in advance. Trigger it by pressing 
key "0. " 

Exercise 2-6: Rewrite the program so that it will store the note and 
duration constants in memory when they are entered, and will not 
need to look them up when the tune is played. What are the disadvan- 
tages of this method? 



40 



3. Pseudo Random Number Generator 
(Translate) 



INTRODUCTION 

This program will use a pseudo random number generator, display 
patterns from tables, measure elapsed time, and generate delays. It will 
check your knowledge of basic input/output techniques before we proceed 
to more complex concepts. 

THE RULES 

This is a game designed for two competing players. Each player tries to 
quickly decipher the computer's coded numbers. The players are alter- 
nately given a turn to guess. Each player attempts to press the hexa- 
decimal key corresponding to a 4-bit binary number displayed by the 
program. The program keeps track of the total guessing time for each 
player, up to a limit of about 17 seconds. When each player has correctly 
decoded a number, the players' response times are compared to deter- 
mine who wins the turn. The first player to win ten turns wins the match. 

The program signals each player's turn by displaying an arrow 
pointing either to the left or to the right. The player on the right will be 
signaled first to initiate the game. The program's "prompt" is shown 
in Figure 3.1. 

A random period of time will elapse after this prompt, then the bot- 
tom row of LEDs on the Games Board will light up. The left-most 
LED (LED #10) signals to the player to proceed. The four right-most 
LEDs (LEDs 12, 13, 14, and 15) display the coded binary number. 
This is shown in Figure 3.2. In this case, player 1 should clearly press 
key number 5. If the player guesses correctly, the program switches to 
player 2. Otherwise, player 1 will be given another chance until his or 
her turn (17 seconds) is up. It should be noted here that for each 
number presented to the player, the total guessing time is accumulated 
to a maximum of about 17 seconds. When the maximum is reached, 
the bottom row will go blank and a new number will be displayed. 

The program signals player 2's turn (the player on the left) by 
displaying a left arrow on the LEDs as shown in Figure 3.3. Once both 
players have had a turn to guess a binary digit, the program will signal 
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• O O 

1 2 3 




4 5 6 



• O O 

7 8 9 

Fig. 3. 1 : Prompt Signals the Right Player to Play 

10 11 12 13 14 15 

• O OJ^O_% 

GO BINARY NUMBER 

Fig. 3.2: Bottom Row of LEDs Displays Number to be Guessed 



o 

1 


o 

2 


• 

3 


• 

4 


• 

5 


• 

6 


o 

7 




8 


• 

9 



Fig. 3.3: It is Player 2 s Turn (Left Player) 

the winner by lighting up either the left-most or the right-most three 
LEDs of the bottom row. The winner is the player with the shortest 
guessing time. The game is continued until one player wins ten times. 
He or she then wins the match. The computer signals the match win- 
ner by blinking the player's three LEDs ten times. At the end of the 
match, control is returned to the SYM-1 monitor. 

A TYPICAL GAME 

The right arrow lights up. The following LED pattern appears at the 
bottom: 10, 13, 14, 15. The player on the right (player 1) pushes key 
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"C," and the bottom row of LEDs goes blank, as the answer is incor- 
rect. Because player 1 did not guess correctly and he or she still has 
time left in this turn, a new number is offered to player 1. LEDs 10, 
13, 14, and 15 light up and the player pushes key "7." He or she wins 
and now the left arrow lights up, indicating that it is player 2's turn. This 
time the number proposed is 10, 12, 15. The left player pushes key "9." 
At this point, LEDs 10, 11, and 12 light up, indicating that the player 
is the winner for this turn as he/she has used less total time to make a 
correct guess than player 1 . 

Let us try again. The right arrow lights up; the number to translate 
appears in LEDs 10, 13, 14, and 15. Player 1 pushes key "7," and a 
left arrow appears. The next number lights LEDs 10 and 14. Player 2 
pushes key "2." Again, the left-most three LEDs light up at the bot- 
tom, as player 2 was faster than player 1 at providing the correct 
answer. 

THE ALGORITHM 

The flowchart corresponding to the program is shown in Figure 3.4. 
A first waiting loop is implemented to measure the time that it takes for 
player 1 to guess correctly. Once player 1 has achieved a correct guess, 
his or her total time is accumulated in a variable called TEMP. It is 
then player 2's turn, and a similar waiting loop is implemented. Once 
both players have submitted their guesses, their respective guessing 
times are compared. The player with the least amount of time wins, 
and control flows either to the left or to the right, as shown by labels 1 
and 2 on the flowchart in Figure 3.4. A secondary variable called 
PLYR1 or PLYR2 is used to count the number of games won by a 
specific player. This variable is incremented for the player who has 
won and tested against the value 10. If the value 10 has not been 
reached, a new game is started. If the value 10 has been reached, the 
player with this score is declared the winner of the match. 

THE PROGRAM 

The corresponding program uses only one significant data struc- 
ture. It is called NUMTAB and is used to facilitate the display of the 
random binary numbers on the LEDs. Remember that LED #10 must 
always be lit (it is the "proceed" LED). LED #11 must always be off. 
LEDs 12, 13, 14, and 15 are used to display the binary number. 
Remember also that bit position 6 of Port IB is not used. As a result, 
displaying a "0" will be accomplished by outputting the pattern 
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^ START ^ 



WINCOUNT 1 = 
WINCOUNT 2 = 



SHOW THAT IT IS 
PLAYER l's TURN 



Hi 



GET PLAYER l's 
GUESS WHILE 
TIMING INPUT 




NO ^ GUESS 
CORRECT? 



STORE PLAYER l's 
TIME IN TEMP 



SHOW THAT IT IS 
PLAYER 2'sTURN 



GET PLAYER 2's 
GUESS WHILE 
TIMING INPUT 





LIGHT LED s TO 
SHOW PLAYER 1 
WINS ROUND 



INCREMENT PLAYER 
l's WINCOUNT 




SHOW PLAYER 
l's WIN 



LIGHT LEDs TO 
SHOW PLAYER 2 
WINS ROUND 



INCREMENT PLAYER 
2's WINCOUNT 




SHOW PLAYER 
2's WIN 



I END 1 



Fig. 3.4: Translate Flowchart 
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"00000010." Outputting a "1" will be accomplished with the pattern 
"10000010." Outputting "2" will be accomplished with the pattern 
"00100010." Outputting "3" will be accomplished with the pattern 
"10100010," etc. (See Figure 3.5) 

The complete patterns corresponding to all sixteen possibilities are 
stored in the NUMTAB table of the program. (See Figure 3.6.) Let us 
examine, for example, entry 14 in the NUMTAB (see line 0060 of the 
program). It is "00111010." The corresponding binary number to be 
displayed is, therefore: "001 1 1 ." 



l i 



It is "1110" or 14. Remember that bit 6 on this port is always "0." 
Low Memory Area 

Memory locations to ID are used to store the temporary variables 
and the NUMTAB table. The functions of the variables are: 



TEMP 

CNTHI.CNTLO 
CNT1H.CNT1L 



PLYR1 



PLYR2 

NUMBER 

SCR and following 



Storage for random delay-length 

Time used by a player to make 

his or her move 

Time used by player 1 to make 

his or her move (permanent 

storage) 

Score for Player 1 (number of 
games won so far, up to a 
maximum of ten) 
Same for player 2 
Random number to be guessed 
Scratch area used by the 
random number generator 



In the assembler listing, the method used to reserve memory loca- 
tions in this program is different from the method used in the program 
in Chapter 2. In the MUSIC program, memory was reserved for the 
variables by simply declaring the value of the symbols representing the 
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VIA#1 

PAO >" 
PA1 >" 
PA2 >- 
PA3 
PA4 
PA5 



1 




2 


3 




4 


5 




6 


9 


7416 


8 


11 




10 


13 




12 


7 




14 



320« 



-VNAA/V^ 



-KJ- 



a/ 



LED AO 



LED A5 



+ 5 



330« 




2 — v/vWV^- 



LED A6 



■*3- 
-K3- 

-o- 



—Vv\A/v A <h 



-K3- 



LED B3 



33011 




2 -VAAAA- 
-VWW- 
-Wv\aA 



A/ 



LED B4 



■o- 

-O- 



A 



LED B7 



+5 



Fig. 3.5: LED Connections 
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variable locations with the statement: 

< VARIABLE NAME) = < MEMORY ADDRESS) 

In this program, the location counter of the assembler is incremented 
with expressions of the form: 

* = * + n 

Thus, the symbols for the variable locations in this program are 
declared as "labels," while, in the MUSIC program, they are "sym- 
bols" or "constant symbols." 

The program in this chapter consists of one main routine, called 
MOVE, and five subroutines: PLAY, COUNTER, BLINK, DELAY, 
RANDOM. Let us examine them. The data direction registers A and B 
for the VIA's #1 and #3 of the board must first be initialized. DDR1A, 
DDR1B, and DDR3B are configured as outputs: 

START LDA #$FF 

STA DDR1A 
STA DDR IB 
STA DDR3B 

DDR3A is conditioned as input: 

LDA #0 
STA DDR3A 

Finally, the variables PLYR1 and PLYR2, used to accumulate the 
number of wins by each player, are initialized to zero: 

STA PLYR1 
STA PLYR2 

The main body of MOVE is then entered. A right arrow will be 
displayed to indicate that it is player 2's turn. A reminder of the LEDs 
connections is shown in Figure 3.5. In order to display a right arrow, 
LEDs 1, 4, 5, 6, and 7 must be lit (refer also to Figure 3.1). This is ac- 
complished by outputting the appropriate code to Port 1A: 

MOVE LDA#%01111001 

STA PORTIA Display right arrow 
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The bottom line of LEDs must be desired: 

LDA #0 
STA PORT1B 

Finally, the counters measuring elapsed time must be cleared: 

STA CNTLO 
STA CNTHI 

We are ready to play: 

JSR PLAY 

The PLAY routine will be described below. It returns to the calling 
routine with a time-elapsed measurement in locations CNTLO and 
CNTHI. 

Let us return to the main program (line 0082 in Figure 3.6). The 
time-elapsed duration which has been accumulated at locations 
CNTLO and CNTHI by the PLAY routine is saved in a set of perma- 
nent locations reserved for player 1, called CNT1L, CNT1H: 

LDA CNTLO 
STA CNT1L 
LDA CNTHI 
STA CNT1H 

It is then player 2's turn, and a left arrow is displayed. This is ac- 
complished by turning on LEDs 3, 4, 5, and 6: 

LDA #%0001 1 1 100 Display left arrow 
STA PORTIA 

Then LED #9 is turned on to complete the left arrow: 

LDA #1 
STA PORT1B 

As before, the time-elapsed counter is reset to zero: 

LDA #0 
STA CNTLO 
STA CNTHI 
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LINE 






COBE 


LINE 






0002 


0000 








i ' TRANSLATE ' 




0003 


0000 








(PROGRAM TO TEST 2 PLAYER'S SPEED 


0004 


0000 








(IN TRANSLATING A BINARY NUMBER TO A SINGLE 


0005 


0000 








(HEXADECIMAL DIGIT. EACH PLAYER IS GIVEN A 


0006 


0000 








(TURN. 


AS SHOWN BY A LIGHTED LEFT OR RIGHT 


0007 


0000 








f POINTER t THE NUMBER UILL SUDDENLY FLASH ON 


0008 


0000 








( LEDS 


12-15. ACCOMPANIEB BY THE LIGHTING 


000? 


0000 








iOF LED *10. THE PLAYER 


MUST THEN 


0010 


0000 








(PUSH 


THE CORRESPONDING 


BUTTON. AFTER 


0011 


0000 








f BOTH 


PLAYERS TAKE TURNS . RESULTS ARE 


0012 


0000 








iSHOUN 


ON BOTTOM ROU. AFTER 10 UINS. 


0013 


0000 








SA PLAYER'S RESULTS UILL FLASH. 


0014 


0000 








SSHOUING THE BETTER PLAYER. THEN 


0015 


0000 








( THE GAME RESTARTS. 




0016 


0000 














0017 


0000 








f i/o: 






ooia 


0000 














0019 


0000 








PORTIA 


« *A001 


( LEDS 1-8 


0020 


0000 








P0RT1B 


- *A000 


(LEDS ?-15 


0021 


0000 








DDR1A 


- *A003 




0022 


0000 








DDR1B 


= *A002 




0023 


0000 








P0RT3A 


- tACOl 


(KEY STROBE INPUT. 


0024 


0000 








P0RT3B 


= tACOO 


( KEY * OUTPUT. 


0025 


0000 








BDR3A 


= *AC03 




0026 


0000 








DDR3B 


- »AC02 




0027 


0000 














0028 


0000 








(VARIABLE STORAGE! 




0029 


0000 














0030 


0000 










* = *0 




0031 


0000 














0032 


0000 








TEMP 


*=*+l 




0033 


0001 








CNTHI 


*-*+l > 


TEMPORARY STORAGE FOR AMT. OF 


0034 


0002 










(TIME PLYR USES 


TO GUESS. 


0035 


0002 








CNTLO 


*=*+l 




0036 


0003 








CNT1H 


*-*+l ! 


AMT. OF TIME PLYR1 USES TO GUESS. 


0037 


0004 








CNT1L 


*=*+l 




0038 


0005 








PLYR1 


*=*+l ! 


SCORE OF * WON FOR PLYR1 . 


0039 


0006 








PLYR2 


««*+l ! 


PLAYER 2 SCORE. 


0040 


0007 








NUMBER 


*■=*+! 


(STORES NUMBER TO BE GUESSED. 


0041 


0008 








SCR 


*=*+6 (SCRATCHPAD FOR RND. * GEN. 


0042 


000E 














0043 


OOOE 








(TABLE 


OF ' REVERSED ' NUMBERS FOR DISPLAY 


0044 


OOOE 








(IN BITS 3-8 OF P0RT1B. 


OR LEDS 12-15. 


0045 


OOOE 














0046 


OOOE 


02 






NUMTAB 


.BYTE 200000010 




0047 


OOOF 


82 








.BYTE 210000010 




0048 


0010 


22 








•BYTE 200100010 




0049 


0011 


A2 








. BYTE 210100010 




0050 


0012 


12 








. BYTE 200010010 




0051 


0013 


92 








.BYTE 210010010 




0052 


0014 


32 








.BYTE 200110010 




0053 


0015 


B2 








. BYTE 210110010 




0054 


0016 


OA 








.BYTE 200001010 




0055 


0017 


8A 








.BYTE 210001010 




0056 


0018 


2A 








.BYTE 200101010 




0057 


0019 


AA 








.BYTE 210101010 




0058 


OOIA 


1A 








.BYTE 200011010 




0059 


001B 


9A 








.BYTE 210011010 




0060 


001C 


3A 








.BYTE 200111010 




0061 


001D 


BA 








.BYTE 210111010 




0062 


00 IE 














0063 


001E 








(MAIN 


PROGRAM 




0064 


001E 














0065 


001E 










* = *200 




0066 


0200 














0067 


0200 


A9 


FF 




START 


LDA **FF 


(SET UP PORTS 


0068 


0202 


8D 


03 


AO 




STA DDR1A 




0069 


0205 


SB 


02 


AO 




STA DDR1B 




0070 


0208 


8B 


02 


AC 




STA DDR3B 




0071 


020B 


A9 


00 






LDA *0 




0072 


020D 


8B 


03 


AC 




STA DDR3A 




0073 


0210 


85 


05 






STA PLYR1 


(CLEAR NO. OF UINS. 


0074 


0212 


85 


06 






STA PLYR2 




0075 


0214 


A? 


79 




MOVE 


LDA *%01111001 




0076 


0214 


8B 


01 


AO 




STA PORTIA 


(SHOW RIGHT ARROW. 


0077 


021? 


A9 


00 






LDA tO 




0078 


021B 


SB 


00 


AO 




STA P0RT1B 




0079 


021E 


85 


02 






STA CNTLO 


(CLEAR COUNTERS. 


0080 


0220 


85 


01 






STA CNTHI 




0081 


0222 


20 


8C 


02 




JSR PLAY 


(GET PLAYER l'S TIME. 


0082 


0225 


AS 


02 






LDA CNTLO 


( XFER TEMP COUNT TO PERMANENT STORAGE . 


0083 


0227 


85 


04 






STA CNT1L 




0084 


022? 


A5 


01 






LDA CNTHI 





Fig. 3.6: Translate Program 
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0085 

0086 

0087 

0088 

008? 

0090 

0091 

0092 

0093 

0094 

0095 

0094 

0097 

0098 

009? 

0100 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 

0111 



0112 
0113 
0114 
0115 
Oil* 
0117 
0118 
0119 
0120 
01 
012 
0123 
0124 
0125 
0126 
0127 
0128 
0129 
0130 
0131 
013 
0133 
0134 
0135 
0136 
0137 
0138 
0139 
0140 
0141 
0142 
0143 
0144 
0145 
0146 
0147 
0148 
0149 
0150 
0151 
0152 
0153 
0154 
0155 
0156 
0157 
0158 
0159 
0160 
0141 
0162 
0163 
0164 
0165 



022B 
022D 
022F 
0232 
0234 
0237 
0239 
023B 
023D 
0240 
0242 
0244 
0246 
0248 
024A 
024C 
024C 
024E 
0250 
0252 
0254 
0257 
0259 
025C 
025E 
0261 
0263 
0245 
0267 
0269 
026B 
026E 
026F 
0271 
0274 
0274 
0279 
027B 
027E 
0280 
0282 
0284 
0286 
0288 
028B 
028C 
028C 
028C 
028C 
028C 
028C 
028C 
028C 
028F 
0292 
0295 
0297 
0299 
029A 
02?C 
029F 
02A2 
02A5 
02A7 
02A9 
02AB 
02AE 
02B1 
02B4 
02B5 
02B5 
02B5 
02B5 
02B5 
02B5 
02B7 
02BA 
02BD 
02BF 
02C0 
02C2 



85 03 
A9 3C 
8D 01 AO 
A9 01 
8B 00 AO 
A9 00 
85 02 
85 01 
20 8C 02 
A5 01 
C5 03 
FO 04 
?0 27 
BO 08 
A5 02 



STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
STA 
JSR 
LDA 
CMP 
BEG 
BCC 
BCS 

EQUAL LDA 



CNT1H 

*%000111100 

PORTIA 

*1 

PORT IB 
*0 



C5 04 
90 IF 
BO 00 
A? FO 
8D 00 AO 
A? 00 
8D 01 AO 
A? 40 
20 E3 02 
E6 05 
A? OA 
C5 05 
DO AB 
A? FO 
20 CB 02 
60 

A? OE 
3D 00 AO 
A? 00 
8D 01 AO 
A? 40 
20 E3 02 
E6 06 
A? OA 
C5 06 
DO 8E 
A? OE 
20 CB 02 
40 



CNTLO 

CNTHI 

PLAY 

CNTHI 

CNT1H 

EQUAL 

PLR2 

PLR1 

CNTLO 



ISHOU LEFT ARROW. 



(CLEAR COUNTERS. 



SHOW IT. 



CMP 
BCC 
BCS 

PLR1 LDA 
STA 
LDA 
STA 
LDA 
JSR 
INC 
LDA 
CMP 
BNE 
LDA 
JSR 
RTS 

PLR2 LDA 
STA 
LDA 
STA 
LDA 
JSR 
INC 
LDA 
CMP 
BNE 
LDA 
JSR 
RTS 



20 F4 02 
20 E3 02 
20 F4 02 
2? OF 
85 07 
AA 

B5 OE 
OD 00 AO 
8D 00 AO 
20 B5 02 
C4 07 
FO OB 
A? 01 
2D 00 AO 
8D 00 AO 
4C 8C 02 
40 



AO OF 
8C 00 AC 
2C 01 AC 
10 OB 
88 

10 F5 
E6 02 



CNT1L 
PLR2 
PLR1 

♦X11110000 
P0RT1B 
• 

PORTIA 
**40 
DELAY 
PLYR1 
*10 
PLYR1 
MOVE 

*%11110000 
BLINK 

♦X1110 
P0RT1B 
*0 

PORTIA 
*«40 
DELAY 
PLYR2 
♦ 10 
PLYR2 
MOVE 
♦21110 
BLINK 



; GET PLAYER 2'S TIME. 

( GET PLAYER 2'S COUNT AND... 

■COMPARE TO PLAYER l'S. 

5 CHECK LOW ORDER BYTES TO RESOLVE WINNER, 
f PLAYER 2 HAS SMALLER COUNT, SHOW IT. 
! PLAYER 1 HAS SMALLER COUNT r 
iHI BYTES WERE EQUAL , SO 
CHECK LOW BYTES. 

i COMPARE SCORES. 
(PLAYER 2 WINS> SHOW IT. 
'PLAYER 1 WINS> SHOW IT. 
LIGHT RIGHT SIDE OF BOTTOM ROW 
TO SHOW WIN. 



(CLEAR LOW LEDS. 

(WAIT A WHILE TO SHOW WIN. 

i PLAYER 1 WINS ONE MORE... 
( . . .HAS HE WOM 10? 

(IF NOT, PLAY ANOTHER ROUND . 
(YES - GET BLINK PATTERN. 
(BLINK WINNING SIDE. 
(ENDGAME! RETURN TO MONITOR . 
(LIGHT LEFT SIDE OF BOTTOM. 



(CLEAR LOW LEDS. 

(WAIT A WHILE TO SHOW WIN. 

(PLAYER 2 HAS WON ANOTHER ROUND. 
( . . .HAS HE WON 10? 

(IF NOT , PLAY ANOTHER ROUND. 
( YES-GET PATTERN TO BLINK LEDS . 
(BLINK THEM 
( END. 



(SUBROUTINE 'PLAY' 

(GETS TIME COUNT OF EACH PLAYER- AND IF 
(BAD GUESSES ARE MADE, THE PLAYER IS 
(GIVEN ANOTHER CHANCE. THE NEW TIME ADDED TO 
(THE OLD . 



PLAY 



JSR 
JSR 
JSR 
AND 
STA 
TAX 
LDA 
ORA 
STA 
JSR 
CPY 
BEQ 
LDA 
AND 
STA 
JMP 



RANDOM 

DELAY 

RANDOM 

*«0F 

NUMBER 

NUMTAB.X 

PORT IB 

P0RT1B 

CNTSUB 

NUMBER 

DONE 

*01 

P0RT1B 
P0RT1B 
PLAY 



(GET RANDOM NUMBER. 

(RANDOM - LENGTH DELAY. 

(GET ANOTHER. 

(KEEP UNDER 16 FOR USE AS 

(NUMBER TO GUESS. 

(USE AS INDEX TO.... 

( .GET REVERSED PATTERN FROM TABLE 
(...TO DISPLAY IN LEDS 12-15. 

(GET KEYSTROKE 8 DURATION COUNT. 
(IS KEYSTROKE CORRECT GUESS? 
(IF SO. DONE. 

(NO! CLEAR OLD GUESS FROM LEDS. 

(TRY AGAIN W/ANOTHER NUMBER . 
^RETURN W/ DURATION IN CNTLO+CNTHI 



( GETS^KEYSTROKE^WHILE KEEPING TRACK OF AMT OF 
(TIME BEFORE KEYPRESS. 



CNTSUB LDY #*F 
KEYLP STY P0RT3B 
BIT P0RT3A 
BPL FINISH 
DEY 

BPL KEYLP 
INC CNTLO 



(SET UP KEY* COUNTER. 

(OUTPUT KEY* TO KEYBOARD MPXR. 

(KEY DOWN? 

(IF YES , DONE. 

(COUNT DOWN KEY *. 

'(Al[ KEYS TRIED, INCREMENT COUNT. 



■ Fig. 3.6: Translate Program (Continued) ■ 
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01 


02C4 DO 




BNE CNTSUB 


?TRY KEYS AGAIN IF NO OVERFLOW. 


ni A7 


02C6 E6 


ai 


INC CNTHI 


rOVERFLOUr INCREMENT HIGH BYTE. 


01 An 




FR 


BNE CNTSUB 


fTRY KEYS AGAIN. 


At zb 


02CA 60 




FINISH RTS 


sbone: TIME RAN OUT OR KEY PRESSED. 




02CB 














i SUBROUTINE 'BLINK ' 




ni 7? 


Aorn 




fBLINKS LEDS WHOSE BITJ 


ARE SET IN ACCUMULATOR 








fON ENTRY* 




0174 


02CB 








0175 


02CB A2 






1 £V KLINKd. 




VttlKjL' Do 


01 


STX CNTHI 


» SET BLINK COUNTER. 




02CF 85 


02 


STA CNTLO 


> BLINK REGISTER. 


01 7fl 


»!! 




BLOOP LDA CNTLO 


i GET BLINK PATTERN . 




02D3 4D 


00 AO 


EOR P0RT1B 


f BLINK LEDS. 


A1 OA 


02D6 8D 


00 AO 


STA P0RT1B 




ni nt 


02D9 A9 




LDA *10 


■SHORT DELAY. 


aibo 


02DB *"*0 


E3 0^ 


JSR DELAY 




0183 


02DE C6 


01 


DEC CNTHI 




0184 


02E0 DO 


EF 


BNE BLOOP 


iLOOP IF NOT DONE. 


0185 


02E2 60 




RTS 




0186 


02E3 








01B7 


02E3 




i SUBROUTINE 'DELAY' 




0186 


02E3 




f CONTENTS OF REG. A DETERMINES DELAY LENGTH. 


018? 


02E3 








rti 0? 


02E3 85 


00 


DELAY STA TEMP 




0191 


02E5 AO 


10 


DL1 LDY «»10 




0192 


02E7 A2 


FF 


DL2 LDX »*FF 




0193 


02E9 CA 




DL3 DEX 




0194 


02EA DO 


FD 


BNE DL3 




0195 


02EC 88 




DEY 






UztU UU 




BNE DL2 




aio? 




aa 


DEC TEMP 




fti <?» 




F2 


BNE DL1 




At 00 

a^aa 


02F3 60 




RTS 














aoai 


A?r* 




f SUBROUTINE 'RANDOM' 




o5n^ 






! RANDOM NUMBER GENERATOR . 


0203 


02F4 




f RETURNS RANDOM NUMBER 


IN ACCUM. 


0204 


02F4 








0205 


02F4 38 




RANDOM SEC 




0206 


02F5 A5 


09 


LDA SCR+1 




0207 


02F7 65 


OC 


ADC SCR+4 




0208 


02F9 65 


OB 


ADC SCR+5 




0209 


02FB 85 


08 


STA SCR 




0210 


02FD A2 




LDX *4 




021 1 


02FF B5 


08 


RNDLP LDA SCR.X 




0212 


0301 95 


09 


STA SCR+1, X 






0303 CA 




DEX 








F9 


BPL RNDLP 






0306 60 




RTS 




091 A 
0216 


0307 




• END 




SYMBOL 


TABLE 








SYMBOL 


VALUE 








BLINK 


02CB 


BLOOP 


02D1 CNT1H 0003 


CNT1L 0004 


CNTHI 


0001 


CNTLO 


0002 CNTSUB 02B5 


DDR1A A003 


DDR1B 


A002 


DDR3A 


AC03 DDR3B AC02 


DELAY 02E3 


DL1 


02E5 


DL2 


02E7 DL3 02E? 


DONE 02B4 


EQUAL 


024A 


FINISH 


02CA KEYLP 02B7 


MOVE 0214 


NUMBER 


0007 


NUMTAB 


OOOE PLAY 028C 


PLR1 0252 


PLR2 


026F 


PLYR1 


0005 PLYR2 0006 


PORTIA A001 


P0RT1B 


AO00 


P0RT3A 


AC01 P0RT3B ACOO 


RANDOM 02F4 


RNDLP 


02FF 


SCR 


0008 START 0200 


TEMP 0000 



END OF ASSEMBLY 



Fig. 3.6: Translate Program (Continued). 
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and player 2 can play: 



JSR PLAY 



The time elapsed for player 2 is then compared to the time elapsed for 
player 1. If player 2 wins, a branch occurs to PLR2. If player 1 wins, a 
branch occurs to PLR1 . The high bytes are compared first. If they are 
equal, the low bytes are compared in turn: 



Compare high bytes 

Player 2 has lower time? 
Player 1 does 
Compare low bytes 



LDA CNTHI 
CMP CNT1H 
BEQ EQUAL 
BCC PLR2 
BCS PLR1 
EQUAL LDA CNTLO 

CMP CNT1L 
BCC PLR2 
CMP CNT1L 
BCC PLR2 
BCS PLR1 



Once the winner has been identified, the bottom row of LEDs on his 
or her side will light up, pointing to the winner. Let us follow what 
happens when PLR1 wins, for example. Player l's right-most three 
LEDs (LEDs 13 through 15) are lit up: 



PLR1 LDA #%1 11 10000 

STAPORT1B 

The other LEDs on the Games Board are cleared: 



LDA #0 
STA PORTIA 



A DELAY is then implemented, and we get ready to play another 
game, up to a total of 10: 

LDA #$40 
JSR DELAY 



The score for player 1 is incremented: 
INC PLYR1 
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PSEUDO RANDOM NUMBER GENERATOR 

It is compared to 10. If it is less than 10, a return occurs to the main 
MOVE routine: 

LDA #10 
CMP PLYR1 
BNE MOVE 

Otherwise, the maximum score of 10 has been reached and the game is 
over. The LEDs on the winner's side will blink: 

LDA #%1 1110000 Blink pattern 

JSR BLINK 

RTS 

The corresponding sequence for player 2 is listed at address PLR2 
(line 117 on Figure 3.6): 

PLR2 LDA #% 11 10 

STA PORT1B 
LDA #0 
STA PORTIA 
LDA #$40 
JSR DELAY 
INC PLYR2 
LDA #10 
CMP PLYR2 
BNE MOVE 
LDA #%1110 
JSR BLINK 
RTS 



The Subroutines 

PLAY Subroutine 

The PLAY subroutine will first wait for a random period of time 
before displaying the binary number. This is accomplished by calling 
the RANDOM subroutine to obtain the random number, then the 
DELAY subroutine to implement the delay: 

PLAY JSR RANDOM 

JSR DELAY 
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The RANDOM subroutine will be described below. Another random 
number is then obtained. It is trimmed down to a value between and 
15, inclusive. This will be the binary number displayed on the LEDs. It 
is stored at location NUMBER: 

JSR RANDOM 

AND #0F Mask off high nibble 

STA NUMBER 

The NUMTAB table, described at the beginning of this section, is then 
accessed to obtain the correct pattern for lighting the LEDs using in- 
dexed addressing. Register X contains the number between and 15 to 
be displayed: 

TAX Use X as index 

LDA NUMTAB.X Retrieve pattern 

The pattern in the accumulator is then stored in the output register in 
order to light the LEDs. Note that the pattern is OR'ed with the 
previous contents of the output register so that the status of LED 9 is 
not changed: 

ORA PORT1B 
STA PORT1B 

Once the random number has been displayed in binary form on the 
LEDs, the subroutine waits until the player presses a key. The 
CNTSUB subroutine is used for this purpose: 

JSR CNTSUB 

It will be described below. 

The value returned in register Y by this subroutine is compared to 
the number to be guessed, which is stored at memory address 
NUMBER. If the comparison succeeds, exit occurs. Otherwise, all 
LEDs are cleared using an AND, to prevent changing the status of 
LED 9, and the subroutine is reentered. Note that the remaining time 
for the player will be decremented every time the CNTSUB subroutine 
is called. It will eventually decrement to 0, and this player will be given 
another number to guess: 
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CPY NUMBER Correct guess? 
BEQ DONE 

LDA #01 No: clear old guess 

AND PORT1B 
STA PORT1B 

JMP PLAY Try again 

DONE RTS 



Exercise 3-1: Modify PLA Y and/or CNTSUB so that, upon timeout, 
the player loses the current round, as if the maximum amount of time 
had been taken to make the guess. 



CNTSUB Subroutine 

The CNTSUB subroutine is used by the PLAY subroutine previous- 
ly described. It monitors a player's keystroke and records the amount 
of time elapsed until the key is pressed. The key scanning is performed 
in the usual way: 



CNTSUB LDY #$F 
KEYLP STY PORT3B 

BIT PORT3A 

BPL FINISH 

DEY Count down key # 

BPL KEYLP Next key 

FINISH BNE CNTSUB 



Each time that all keys have been scanned unsuccessfully, the time 
elapsed counter is incremented (CNTLO.CNTHI): 



INC CNTLO 
BNE CNTSUB 
INC CNTHI 
BNE CNTSUB 
FINISH RTS 



Upon return of the subroutine, the number corresponding to the key 
which has been pressed is contained in index register Y. 

Exercise 3-2: Insert some "do-nothing" instructions into the CNTSUB 
subroutine so that the guessing time is longer. 
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BLINK Subroutine 

The LEDs specified by the accumulator contents are blinked 
(turned on and off) ten times by this subroutine. It uses memory loca- 
tion CNTHI and CNTLO as scratch registers, and destroys their 
previous contents. Since the LEDs must alternately be turned on and 
off, an exclusive-OR instruction is used to provide the automatic on/ 
off feature by performing a complementation. Because two com- 
plementations of the LED status must be done to blink the LEDs 
once, the loop is executed 20 times. Note also that LEDs must be kept 
lit for a minimum amount of time. If the "on" delay was too short, 
the LEDs would appear to be continuously lit. The program is shown 
below: 



BLINK LDX #20 

STX CNTHI 
STA CNTLO 

BLOOP LDA CNTLO 

EOR PORT1B 
STA PORT1B 
LDA #10 
JSR DELAY 
DEC CNTHI 
BNE BLOOP 
RTS 



20 blinks 
Blink counter 
Blink register 
Get blink pattern 
Blink LEDs 

Short delay 



Loop if not done 



DELAY Subroutine 

The DELAY subroutine implements a classic three-level, nested 
loop design. Register X is set to a maximum value of FF 
(hexadecimal), and used as the inner loop counter. Register Y is set to 
the value of 10 (hexadecimal) and used as the level-2 loop counter. 
Location TEMP contains the number used to, adjust the delay and is 
the counter for the outermost loop. The subroutine design is 
straightforward: 



DELAY STA TEMP 

DL1 LDY #$10 

DL2 LDX #$FF 

DL3 DEX 

BNE DL3 

DEY 
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BNE DL2 
DEC TEMP 
BNE DL1 
RTS 

Exercise 3-3: Compute the exact duration of the delay implemented by 
this subroutine as a function of the number contained in location 
TEMP. 

RANDOM Subroutine 

This simple random number generator returns a semi-random 
number into the accumulator. A set of six locations from memory ad- 
dress 0008 ("SCR") have been set aside as a scratch-pad for this 
generator. The random number is computed as 1 plus the contents of 
the number in location SCR + 1 , plus the contents of the number in 
location SCR + 4, plus the contents of the number in location SCR 
+ 5: 

RANDOM SEC 

LDA SCR + 1 
ADC SCR + 4 
ADC SCR + 5 
STA SCR 

The contents of the scratch area (SCR and following locations) are 
then shifted down in anticipation of the next random number genera- 
tion: 

LDX #4 
RNDLP LDA SCR.X 

STA SCR+ 1,X 
DEX 

BPL RNDLP 
RTS 

The process is illustrated in Figure 3.7. Note that it implements a 
seven-location circular shift. The random number which has been 
computed is written back in location SCR, and all previous values at 
memory locations SCR and following are pushed down by one posi- 
tion. The previous contents of SCR + 5 are lost. This ensures that the 
numbers will be reasonably random. 
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Fig. 3.7: Random Number Generation 



SUMMARY 



This game involved two players competing with each other. The 
time was kept with nested loops. The random number to be guessed 
was generated by a pseudo-random number generator. A special table 
was used to display the binary number. LEDs were used on the board 
to indicate each player's turn to display the binary number, and to 
indicate the winner. 



Exercise 3-4: What happens in the case in which all memory locations 
from SCR to SCR + 5 were initially zero? 
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4. Hardware Random Number Generator 
(Hexguess) 



INTRODUCTION 

In this chapter random numbers will be generated using the timer's 
latch on an input/output chip. More complex algorithms will be devised 
and simultaneous light and sound effects will be created. 

THE RULES 

The object of this game is to guess a secret 2-digit number generated 
by the computer. This is done by guessing a number, then submitting 
this number to the computer and using the computer's response (in- 
dicating the proximity of the guessed number to the secret number) to 
narrow down a range of numbers in which the secret number resides. 
The program begins by generating a high-pitched beep which signals 
to the player that it is ready for a number to be typed. The player must 
then type in a two-digit hexadecimal number. The program responds 
by signaling a win if the player has guessed the right number. If the 
player has guessed incorrectly, the program responds by lighting up 
one to nine LEDs, indicating the distance between the player's guess 
and the correct number. One lit LED indicates that the number 
guessed is a great distance away from the secret number, and nine lit 
LEDs indicate that the number guessed is very close to the secret 
number. 

If the guess was correct, the program generates a warbling tone and 
flashes the LEDs on the board. The player is allowed a maximum of 
ten guesses. If he or she fails to guess the correct number in ten tries, a 
low tone is heard and a new game is started. 

A TYPICAL GAME 

The computer beeps, notifying us that we should type in a guess. 

Our guess is: "40" 

The computer lights 4 LEDs We are somewhat off 
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Next guess: "CO" 
Computer's answer: 3 LEDs 
Next guess: "20" 
Computer's response: 3 



We are going further away 

The number must be between 
CO and 20 



We are getting closer 
It's not just below 80 
We're wandering away 
Now we're closing in 



Next guess: "80" 
Response: 5 
Next guess: "75" 
Response: 5 
Next guess: "90" 
Response: 4 
Next guess: "65" 
Response: 7 
Next guess: "60" 
Response: 9 
Next guess: "5F" 
Response: 8 
Next guess: "61" 

We win! ! ! All the LEDs flash and a high warbling tone is heard 

THE ALGORITHM 

The flowchart for Hexguess is shown in Figure 4. 1 . The 
straightforward: 



algorithm is 



— a random number is generated 

— a guess is entered 

— the closeness of the number guessed to the secret 
number is evaluated. Nine levels of proximity are 
available and are displayed by an LED on the board. 
A closeness or proximity table is used for this pur- 
pose. 

— a win or a loss is signaled 

— more guesses are allowed, up to a maximum of 
ten. 



THE PROGRAM 
Data Structures 



The program consists of one main routine called GETGES, and two 
subroutines called LITE and TONE. It uses one simple data structure 
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f START 

3: 

GUESS NBR = 10 

m 

NUMBER = 
RANDOM VALUE 

~F 

READ GUESS 
FROM KEYBOARD 



DECREMENT 
GUESS NBR 

ZE 

TEMP = ABS 
(NUMBER-GUESS) 

zn 

COUNTER = 



INCREMENT 
COUNTER 



TURN ON 
COUNTER + 1 
LIGHTS 




. GUESS NBR = 0?> 



SIGNAL A LOSE 



Fig. 4. 1 : Hexguess Flowchart 
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— a table called LIMITS. The flowchart is shown in Figure 4.1, and 
the program listing appears in Figure 4.2. 

The LIMITS table contains a set of nine values against which the 
proximity of the guess to the computer's secret number will be tested. 
It is essentially exponential and contains the sequence: 1,2.4,8,16 32 
64,128,200. 

Program Implementation 

Let us examine the program itself. It resides at memory address 200 
and may not be relocated. Five variables reside in page zero: 

GUESS is used to store the current guess 
GUESS# is the number of the current guess 
DUR and FREQ are the usual parameters re- 
quired to generate a tone (TONE subroutine) 
NUMBER is the secret computer number 

As usual, the data direction registers VIA #1 and VIA #3 are condi- 
tioned in order to drive the LED display and read the keyboard: 



Memory location DUR is used to store the duration of the tone to be 
generated by the TONE subroutine. It is initialized to "FF" (hex): 



The memory location GUESS# is used to store the number of guesses. 
It is initialized to 10: 



LDA #$FF 
STA DDR1A 
STA DDR IB 
STA DDR3B 



OUTPUT 
OUTPUT 
OUTPUT 



STA DUR 



START 



LDA #$0A 
STA GUESS# 



The LEDs on the Games Board are turned off: 



LDA #00 
STA PORTIA 
STA PORT1B 
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> 'HEXGUESS' 

5 HEXADECIMAL. NUMBER GUESSING GAME. 

iTHE OBJECT OF THE GAME IS TO GUESS A HEXADECIMAL 

* NUMBER THAT THE COMPUTER HAS THOUGHT UP. 

? WHEN THE COMPUTER "BEEPS' t A GUESS SHOULD 

;be entered, guesses are two DIGIT hexadecimal 

* NUMBERS . WHEN TWO DIBITS HAVE BEEN RECEIVED r 
jTHE COMPUTER WILL DISPLAY THE NEARNESS 

:OF THE GUESS BY LIGHTING A NUMBER OF 
JLEDS PROPORTIONAL TO THE CLOSENESS OF 
iTHE GUESS. TEN GUESSES ARE ALLOWED. 
rIF A GUESS IS CORRECT, THEN THE COMPUTER 
SWILL FLASH THE LEDS AND MAKE A WARBLING 
.TONE. 

5 THE ENTRY LOCATION IS $200. 
. 

GETKEY = $100 

»<S522 VIA #1 ADDRESSES! 

TIMER = $A004 i LOW LATCH OF TIMER 1 

DDR1A = $A003 y PORTA DATA DIRECTION REG, 

DDR 1 B m «A002 J PORTS DATA DIRECTION REG. 

PORTIA == $A001 iPORT A 

PORT IB = $AOOO SPORT B 

!A522 MIA #3 ADDRESSES ! 

DDR3B = $AC02 SPORTS DATA DIRECTION REG . 

P0RT3B = $ACOO (PORT B 

.STORAGES! 

GUESS = $00 

GUESS* » $01 

DUR = $02 

FREW == *03 

NUMBER = $04 



= $200 



0200 ! 


A9 


FF 






LDA 


#*FF i 


SET UP DATA DIRECTION REGISTER 


0202! 


BD 


03 


AO 




STA 


DDR1A 




0205 ! 


8D 


02 


AO 




STA 


DDR IB 




0208! 


SD 


02 


AC 




STA 


DDR3B 




020B : 


85 


02 






STA 


DUR i 


SET UP TONE DURATIONS. 


020D! 


A9 


OA 




START 


LDA 


*$0A s 


10 GUESSES ALLOWED 


020F! 


85 


01 






STA 


GUESS* 




0211 ! 


A9 


00 






LDA 


♦ 00 r 


BLANK LEDS 


0213! 


8D 


01 


AO 




STA 


PORTIA 




021(5! 


8D 


00 


AO 




STA 


P0RT1B 




0219! 


AD 


04 


AO 




LDA 


TIMER ; 


GET RANDOM NUMBER TO GUESS 


021C! 


85 


04 






STA 


NUMBER i 


. . . AND SAVE. 


021E! 


A9 


20 




GETGES 


LDA 


*$20 • 


SET UP SHORT HIGH TONE TO 
SIGNAL USER TO INPUT GUESS. 


0220! 


20 


96 


02 




JSR 


TONE ; 


MAKE BEEP. 


0223! 


20 


00 


01 




JSP 


GETKEY : 


GET HIGH ORDER USER GUESS 


022* ! 


OA 








A St.. 


A ; 


SHIFT INTO HIGH ORDER POSITION 


0227! 


OA 








A SI... 


A 




0228! 


OA 








ASL 


A 




0229! 


OA 








ASL 


A 




022A ! 


85 


00 






STA 


GUESS i 


SAVE 


022C! 


20 


00 


01 




JSR 


GETKEY S 


GET LOW ORDER USER GUESS 


022F! 


29 


OF 






AND 


♦XOOOOlllt 


. MASK HIGH ORDER BITS. 


0231 ! 


05 


00 






ORA 


GUESS i 


ADD HIGH ORDER NIBBLE. 


0233! 


85 


00 






STA 


GUESS ; 


FINAL PRODUCT SAVED. 


0235! 


A5 


04 






[.DA 


NUMBER i 


GET NUMBER FOR COMPARE 


0237! 


33 








SEC 






0238! 


E5 


00 






SBC 


GUESS ; 


SUBTRACT GUESS FROM NUMBER 

TO DETERMINE NEARNESS OF GUESS 


023A! 


BO 


05 






BCS 


ALRIGHT 


SPOSITIVE VALUE NEEDS NO FIX. 


023C! 


49 


FF 






FOR 


*%tl 11.1. til 


» MAKE DISTANCE ABSOLUTE 


023E! 


38 








SEC 




MAKE IT A TWO'S COMPLEMENT 


023F! 


69 


00 






ADC 


*00 i 


...NOT JUST A ONES COMPLEMENT, 



Fig. 4.2: Hexguess Program 
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0241 : 


A2 


00 




ALRIGHT 


LDX 


♦ 00 


0243: 


nn 


An 


02 


LOOP 


CMP 


LIMITS 


024A : 


BO 


27 






BCS 


SIGNAL 


024B! 


E8 








I NX 




0249 : 


EO 


09 






CPX 


♦9 


0241! ; 


no 


FA 






BNE 


LOOP 


024DJ 


A9 


OB 




WIN 


LI) A 


#11 


024F t 


85 


00 






STA 


GUESS 


0251 t 


A9 


FF 






LB A 


#*FF 


0253 : 


8D 


01 


AO 




STA 


PORTIA 


0256 I 


8D 


00 


AO 




STA 


PORT IB 


0259 ; 


A9 


32 




WOW 


LDA 


#50 


025B ; 


20 


96 


02 




JSR 


TONE 


025E : 


A9 


FF 






LDA 


**FF 


02601 


41) 


01 


AO 




EOR 


PORTIA 


0263: 


8D 


01 


AO 




STA 


PORTIA 


0266: 


8D 


00 


AO 




STA 


PORT IB 


0269: 


C6 


00 






DEC 


GUESS 


02 ab : 


no 


EC 






BNE 


WOW 


026D! 


F0 


9E 






BEG 


START 


026F: 


E8 






SIGNAL 


INX 




0270! 


A9 


00 






LDA 


#0 


02721 


an 


00 


AO 




STA 


PORT IB 


0275 : 


20 


8E 


02 






li r E[ 


0278: 


an 


01 


AO 




STA 


PORTIA 


027B : 


90 


05 






BCC 


CC 


027D: 


A9 


01 






LDA 


♦ 01 


027F : 


8ti 


00 


AO 




STA 


PORT IB 


0282! 


CA 


01 




CC 


DEC 


gije:ss# 


0284! 


no 


98 






BNE 


GETGES 


0286: 


A9 


BE 






LDA 


**BE 


02B8! 


20 


96 


02 




JSR 


TONE 


028B: 


4C 


on 


02 




JMP 


START 










SROUTINE 


TO 


MAKE PA 



S SET CLOSENESS COUNTER TO DISTANT 

S COMPARE NEARNESS OF RUFRS TO 
•TABLE OF LIMITS TO SEE HOW MANY 
SLIGHTS TO LIGHT. 

> NEARNESS IS BIGGER THAN LIMIT. SG 

!G0 LIGHT INDICATOR, 

S LOOK AT NEXT CLOSENESS LEVEL. 

.ALL NINE LEVELS TRIED? 

SNO. TRY NEXT LEVEL. 

SYES: WIN! LOAD NUMBER OF BLINKS 

!USE GUESS AS TEMP 

S LIGHT LEBS 



stone value 
shake win signal 



S COMPLEMENT PORTS 



sblinks/tones done? 

sno, 1)0 again 

syes. start new game. 

s increment closeness ■level 

scounter so at least 1 led is 

s clear high lei) port 

s get ! ei' pattern 
sset l.eds 

sif carry set pbo . 1 



S ONE GUESS USED 
SSOME LEFT, GET NEXT. 
SLOW TONE SIGNALS LOSE 



SNEW GAME. 



' " 1 '"- ' ' ' nr:. hi^i.. unuLH I I.IK Uri I .1 

STHE BIT POSITION CORRESPONniNG TO THE NUMBER IN X 
SIS REACHED. 



028F : 


A 9 


00 


LITE 


LDA 


#0 


S CLEAR AC 


0290! 


38 




SHIFT 


SEC 




S MAKE LOW 


0291 : 


2A 






ROL 


A 


S SHIFT IT 


0292 : 


CA 






hex 




5 ONE BIT 


0293! 


DO 


FB 




BNE 


SHIFT 


i LOOP IF 


0295 : 


60 






RTS 




S RETURN 








S TONE 


GENERATION ROUNTINE. 


0296! 


85 


03 


TONE 


STA 


FREO 




0298 : 


A 9 


00 




LDA 


#*00 




029A! 


AA 


02 




LDX 


DUR 




029C : 


A4 


03 


FL2 


LDY 


FREO 




029EI 


88 




FL1 


DEY 






029F: 


18 






CLC 






02A0! 


90 


00 




BCC 


.+2 




02A2 : 


DO 


FA 




BNE 


FL1 




02A4: 


49 


FF 




EOR 


**FF 




02A6 : 


an 


00 AC 




STA 


P0RT3B 




02A9: 


CA 






DEX 






02aa: 


no 


FO 




BNE 


FL2 




02AC! 


60 






RTS 







FOR PATTERN 



IN 
DONE. . . 
NOT DONE. 



STABLE OF LIMITS FOR CLOSENESS LEVELS, 



Fig. 4.2: Hexguass Program (Continued). 
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02AD! CB 
02AE! 80 
02AF! 
02B0S 
02B1 : 
02B2! 
02B3! 
02B4! 02 
02B5! 01 



40 
20 
10 
08 
04 



.BYTE 200 , 1 2B 1 64 • 32 > 1 6 . 3 , 4 . 2 



SYMBOL TABLE! 

GETKEY 0100 

DDR IB A002 

DDR3B AC02 

GUESS* 0001 

NUMBER 0004 

ALRIGHT 0241 

WOU 025? 

LITE 028E 

FL2 0290 



TIMER A004 

PORTIA AOO). 

P0RT3B ACOO 

DUR 0002 

START 020D 

LOOP 0243 

SIGNAL 026F 

SHIFT 0290 

FL1 029E 



BDR1A A003 

PORT IB AOOO 

GUESS 0000 

FREO 0003 

GETGES 02 IE 

WIN 02411 

CC 0282 

TONE 0296 

LIMITS 02AD 



Z 



Fig. 4.2: Hexguess Program (Continued) 



The program will generate a random number which must be guessed 
by the player. A reasonably random number is obtained here by 
reading the value of timer 1 of VIA #1 . It is then stored in memory ad- 
dress NUMBER: 

LDA TIMER Low latch of timer 1 
STA NUMBER 

A random number generator is not required because requests for ran- 
dom numbers occur at random time intervals, unlike the situation in 
most of the other games that will be described. An important observa- 
tion on the use of T1CL of a 6522 VIA is that it is often called a 
"latch" but it is a "counter" when performing a read operation! Its 
contents are not frozen during a read as they would be with a latch. 
They are continuously decremented. When they decrement to 0, the 
counter is reloaded from the "real" latch. 

Note that in Figure 4.3 T1L-L is shown twice — at addresses 04 and 
06. This is a possible source of confusion and should be clearly 
understood. Location 4 corresponds to the counter; location 6 cor- 
responds to the latch. Location 4 is read here. 

We are ready to go. A high-pitched tone is generated to signal the 
player that a guess may be entered. The note duration is stored at 
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00 


ORB (PBO TO PB7) 


01 


ORA (PAO to PA7) 


02 


DDR B 


03 


DDR A 


04 


TU-L/T1C-L 


05 


T1C-H 


06 


T1L-L 


07 


T1L-H 


08 


T2L-L/T2C-L 


09 


T2C-H 


OA 


SR 


OB 


ACR 


OC 


PCR (CA1,CA2,CB2,CB1) 


OD 


IFR 


OE 


IER 


OF 


ORA 



I/O data, port A 

Used for control-affects handshake 

i Data direction 
registers 

Counter-low 
Counter-high 
Latch-low 

Latch-high 

Latch-low 
Counter-low 



> Timer 1 



i Timer 2 

I Function 
r control 



Output register A 

(does not affect handshake) 



Counter-high 

Shift register 

Auxiliary 

Peripheral 

Flags 

Enable 



Interrupt 
Control 



Fig. 4.3: 6522 VIA Memory Map 



memory location DUR while the note frequency is set by the contents 
of the accumulator: 

GETGES LDA#$20 High pitch 

JSR TONE 

Two key strokes must be accumulated for each guess. The GETKEY 
subroutine is used to obtain the number of the key being pressed, 
which is then stored in the accumulator. Once the first character has 
been obtained, it is shifted left by four positions into the high nibble 
position, and the next character is obtained. (See Figure 4.4.) 
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A 




FINAL 2 DIGIT GUESS 



Fig. 4.4: Collecting the Player's Guess 



JSR GETKEY 
ASL A 
ASL A 
ASL A 
ASL A 
STA GUESS 
JSR GETKEY 

Once the second character has been transferred into the accumulator, 
the previous character, which had been saved in memory location 
GUESS, is retrieved and OR'ed back into the accumulator: 

AND#%00001111 
ORA GUESS 



It is stored back at memory location GUESS: 
STA GUESS 
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Now that the guess has been obtained, it must be compared against the 
random number stored by the computer at memory location 
NUMBER. A subtraction is performed: 



Note that if the difference is negative, it must be complemented: 



Once the "distance" from the guess to the actual number has been 
computed, the "closeness-counter" must be set to a value between 1 
and 9 (only nine LEDs are used). This is done by a loop which com- 
pares the absolute "distance" of the guess from the correct number to 
a bracket value in the LIMITS table. The number of the appropriate 
bracket value becomes the value assigned to the proximity or closeness 
of the guessed number to the secret number. Index register X is initial- 
ly set to 0, and the indexed addressing mode is used to retrieve bracket 
values. Comparisons are performed as long as the "distance" is less 
than the bracket value, or until X exceeds 9, i.e., until the highest table 
value is looked up. 

ALRIGHT LDX #00 

LOOP CMPLIMITS.X Look up limit value 



At this point, unless a branch has occurred to SIGNAL, the distance 
between the guess and the actual number is 0: it is a win. This is sig- 
naled by blinking the LEDs and by generating a special win tone: 



LDA NUMBER 
SEC 

SBC GUESS 



BCS ALRIGHT Positive? 

EOR #% 1 1 1 1 1 1 1 1 It is negative: complement 

SEC Make it two's complement 

ADC #00 Add one 



BCS SIGNAL 
INX 
CPX#9 
BNE LOOP 



Closeness is less 
Keep trying 10 times 



WIN 



LDA #11 
STA GUESS 
LDA #FF 



Scratch storage 
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STA PORTIA 
STA PORT IB 
WOW LDA #50 Tone pitch 

JSR TONE Generate tone 

The blinking is generated by complementing the LEDs repeatedly: 

LDA #$FF 

EOR PORTIA Complement ports 
STA PORTIA 
STA PORT IB 

The loop is executed again: 

DEC GUESS 
BNE WOW 

Finally, when the loop index (GUESS) reaches zero, a branch occurs 
back to the beginning of the main program: START: 

BEQ START 

If, however, the current guess is not correct, a branch to SIGNAL 
occurs during bracket comparison, with the contents of the X register 
being the proximity value: i.e., the number of LEDs to light. Depend- 
ing on the closeness of the guess to the secret number, LEDs #1 to #9 
will be turned on: 

SIGNAL INX Increment closeness level 

LDA #0 Clear high LED port 

STA PORT1B 

JSR LITE Get LED pattern 

STA PORTIA 

BCC CC If carry set, PBO = 1 

LDA #01 
STA PORT1B 

The number of LEDs to turn on is in X. It must be converted into the 
appropriate pattern to put on the output port. This is done by the 
LITE subroutine, described below. 
If LED #9 is to be turned on, the carry bit is set by LITE. An ex- 
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plicit test of the carry for this case is done above (the pattern 01 is then 
sent to PORT1B). The number of the current guess is decremented 
next. If it is 0, the player has lost: the lose signal is generated and a 



7 o 
— i — i — i — i — i — i — i — 

00000000 
— I — I I I ' ' ' 



JUST BEFORE 1st ROTATION 



1 i i i i i i 

1 

— I — I — I — I — I I I 



BEFORE 2nd ROTATION 



7 

— i — I — r— i — i — i i 

1 1 
i i i 1 ■ 1 ■ 



BEFORE 3rd ROTATION 



— I 1 1 — I — i—i 1 — 

1111111 
— I 1 1 — l I I I 



BEFORE 8th ROTATION 
(CARRY WILL BE0) 



7 

— i — i — i — i — i — r— f — 

llllllll 
— i — ■ i i ■ ■ 



AFTER 9th ROTATION 
(CARRY IS 1 ) 



Fig. 4.5: Obtaining the LED pattern for 8 LED's 
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new game is started; otherwise, the next guess is obtained: 



CC DEC GUESS# 

BNE GETGES Any guesses left? 
LDA #$BE Low tone 

JSR TONE 

JMP START New game 



The Subroutines 

LITE Subroutine 

The LITE subroutine will generate the pattern required to light up 
LEDs #1 to #8, depending on the number contained in register X. The 
required "1" bits are merely shifted right in the accumulator as 
register X is being decremented. An example is given in Figure 4.5. 
4.5. 

Upon exit from the subroutine, the accumulator contains the cor- 
rect pattern required to light up the specified LEDs. If LED #9 is in- 
cluded, the pattern would consist of all ones, and the carry bit would 
be set: 



LITE LDA #0 

SHIFT SEC 

ROL A 

DEX 

BNE SHIFT 
RTS 



Starting "1" 

Rotate the "1" to position 
Done? 



TONE Subroutine 

The TONE subroutine will generate a tone for a duration specified 
by a constant in memory location DUR, at the frequency specified by 
the contents of the accumulator. Index register Y is used as the inner 
loop counter. The tone is generated, as usual, by turning the speaker 
connected to PORT3B on and off successively during the appropriate 
period of time: 

TONE STA FREQ 

LDA #$00 

LDX DUR 
FL2 LDY FREQ 

FL1 DEY 
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CLC 

BCC . + 2 

BNE FL1 

EOR #$FF 

STA PORT3B 

DEX 

BNE 

RTS 

SUMMARY 

This time, the program used the timer's latch (i.e., a hardware register) 
rather than a software routine as a random number generator. A simple 
"LITE" routine was used to display a value, and the usual TONE 
routine was used to generate a sound. 

EXERCISES 

Exercise 4-1: Improve the Hexguess program by adding the following 
feature to it. At the end of each game, if the player has lost, the pro- 
gram will display [the number which the player should have guessed] 
for approximately 3 seconds, before starting a new game. 

Exercise 4-2: What would happen if the SEC at location 290 hex- 
adecimal were left out? 

Exercise 4-3: What are the advantages and disadvantages of using the 
timer's value to generate a random number? What about the suc- 
cessive numbers? Will they be related? Identical? 

Exercise 4-4: How many times does the above program blink the lights 
when it signals a win? 

Exercise 4-5: Examine the WIN routine (line 24D). Will the win tone 
be sounded once or several times? 

Exercise 4-6: What is the purpose of the two instructions at addresses 
29Fand2A0? (Hint: read Chapter 2.) 

Exercise 4-7: Should the program start the timer? 

Exercise 4-8: Is the number of LEDs lit in response to a guess linearly 
related to the closeness of a guess? 
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5. Simultaneous Input/Output 
(Magic Square) 

INTRODUCTION 

Special visual patterns will be created by this program. Random 
numbers will be generated by the hardware source, the timer. Delays, 
blinkers, and counters will be used. 

THE RULES 

The object of the game is to light up a perfect square on the board, 
i.e., to light LEDs 1, 2, 3, 6, 9, 8, 7, and 4 but not LED #5 in the 
center. 

The game is started with a random pattern. The player may modify 
the LED pattern on the board through the use of the keyboard, since 
each of the keys complements a group of LEDs. For example, each of 
the keys corresponding to the corner LED positions (key numbers: 1, 3, 
9, and 7) complements the pattern of the square to which it is attached. 
Key #1 will complement the pattern formed by LEDs 1, 2, 4, 5. 
Assuming that LEDs 1, 2, and 4 are lit, pressing key #1 will result in 
the following pattern: 1-off, 2-off, 4-off, 5-on. 



• 


• 


o 


o 


o 


o 


• 


o 


o 


o 


• 


o 


o 


o 


o 


o 


o 


o 



The pattern formed by LEDs 1, 2, 4, and 5 has been complemented 
and only LED #5 is lit after pressing key #1 . Pressing key #1 again will 
result in: 1, 2, and 4-on with 5-off. Pressing a key twice results in two 
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successive complementations, i.e., it cancels out the first action. 

Similarly, key #9 complements the lower right-hand square formed 
by LEDs 5, 6, 8, and 9. 

Key #3 complements the pattern formed by LEDs 2, 3, 5, and 6. 

Key #7 complements the pattern formed by LEDs 4, 5, 7, and 8. 

The "edge keys" corresponding to LEDs 2, 4, 6, and 8 complement 
the pattern formed by the three LEDs of the outer edge of which they 
are a part. For example, pressing key #2 will complement the pattern 
for LEDs 1, 2, and 3. Assume an initial pattern with LEDs 1, 2, and 3 
lit. Pressing key #2 will result in obtaining the complemented pattern, 
i.e., turning off all three LEDs. Similarly, assume an initial pattern 
on the left vertical edge where LEDs 4 and 7 are lit. 

O O O 

• O O 

• O O 

Pressing key #4 will result in a pattern where LED #1 is lit and LEDs 4 
and 7 are turned off. 

• O O 

— o o o 
o o o 

KEY 4 HAS BEEN PRESSED 

Likewise, key #8 will complement the pattern formed by LEDs 7, 8, 
and 9, and key #6 will complement the pattern formed by LEDs 3, 6, 
and 9. 
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Finally, pressing key #5 (the center LED position) will result in com- 
plementing the pattern formed by LEDs 2, 4, 5, 6, and 8. For exam- 
ple, assume the following initial pattern where only LEDs 6 and 8 are 
lit: 



o 


o 


o 


o 


o 


• 


o 


• 


o 



Pressing key #5 will result in lighting up LEDs 2, 4, and 5: 



o 


• 


o 






o 


o 


o 


o 



The winning combination in which all LEDs on the edge of the square 
are lit is obtained by pressing the appropriate sequence of keys. 



O 
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The mathematical proof that it is always possible to achieve a "win" 
is left as an exercise for the reader. The program confirms that the 
player has achieved the winning pattern by flashing the LEDs on and 



Key "0" must be used to start a new game. A new random pattern 
of lit LEDs will be displayed on the board. The other keys are ignored. 

A TYPICAL GAME 

Here is a typical sequence: 
The initial pattern is: 1-3-4-6-9. 



off. 




O 





O 




O 



O 




Move: press key #8. 
The resulting pattern is: 1 



■3-4-6-7-8. 




O 





O 




• • o 



Next move: press key #2. 

The resulting pattern is: 2-4-6-7-8. 
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I 

o ♦ o 

• o • 

• • o 

Next move: press key #3. 

The resulting pattern is: 3-4-5-7-8. 



o 


o 


• 




• 


• 


o 





• • o 



Next move: press key #2. 

The resulting pattern is 1-2-4-5-7-8. 

\ 

• mo 

• • o 

• • o 
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Next move: press key #6. 

The resulting pattern is 1-2-3-4-5-6-7-8-9. 




Note that this is a "classic" pattern in which all LEDs on the board 
are lit. It is not a winning situation, as LED #5 should be off. Let us 
proceed. 

Next move: the end of this game is left to the mathematical talent of 
the reader. The main purpose was to demonstrate the effect of the 
various moves. 

Hint: a possible winning sequence is 2-4-6-8-5! 

General advice: in order to win this game, try to arrive quickly at a 
symmetrical pattern on the board. Once a symmetrical pattern is ob- 
tained, it becomes a reasonably simple matter to obtain the perfect 
square. Generally speaking, a symmetrical pattern is obtained by hit- 
ting the keys corresponding to the LEDs which are off on the board 
but which should be "on" to complete the pattern. 

THE ALGORITHM 

A pattern is generated on the board using random numbers. The 
key corresponding to the player's move is then identified, and the ap- 
propriate group of LEDs on the board is complemented. 

A table must be used to specify the LEDs forming a group for each 
key. 

The new pattern is tested against a perfect square. If one exists, the 
player wins. Otherwise, the process begins anew. 
The detailed flowchart is shown in Figure 5.1. 
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I START ) 



GET RANDOM 
NUMBER FROM 
TIMER 



STORE IN PORTA 



GET RANDOM 
NUMBER FROM 
TIMER 



STORE IN PORT B 




TEMP = TABLE [(KEY 
NUMBER) X 2] 



PORTA = [(PORTA) 
EOR (TEMP)] 



TEMP = TABLE 
[(KEY NUMBER) 
X 2 + 1] 



PORTB = [(PORT B) 
EOR (TEMP)] 
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THE PROGRAM 
Data Structures 

The main problem here is to devise an efficient way to complement 
the correct LED pattern whenever a key is pressed. The complementa- 
tion itself may be performed by an Exclusive-OR instruction. In this 
case, the pattern used with the EOR instruction should contain a "1" 
in each LED position which is to be complemented, and "0"s 
elsewhere. The solution is quite simple: a nine-entry table, called 
TABLE, is used. Each table entry corresponds to a key and has 16 bits 
of which only nine are used inasmuch as only nine LEDs are used. 
Each of the nine bits contains a "1" in the appropriate position, in- 
dicating the LED which will be affected by the key. 

For example, we have seen that key number 1 will result in com- 
plementing LEDs 1, 2, 4, and 5. The corresponding table entry is 
therefore: 0, 0, 0, 1, 1,0, 1, 1, where bits 1, 2, 4, and 5 (starting the 
numbering at 1, as with the keys) have been set to "1." Or, more 
precisely, using a 16-bit pattern: 

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 1, 1 
The complete table appears below in Figure 5.2. 



KEY 


PATTERN 


1 


00011011 






00000000 


2 


00000111 






00000000 


3 


00110110 






00000000 


4 


01001001 






00000000 


5 


10111010 






00000000 


6 


00100100 






00000001 


7 


11011000 






00000000 


8 


11000000 






00000001 


9 


10110000 






00000001 



Fig. 5.2: Complementation Table 



Program Implementation 

A random pattern of LEDs must be lit on the board at the beginning 
of the game. This is done, as in the previous chapter, by reading the 
value of the VIA #1 timer. If a timer were not available, a random 
number-generating routine could be substituted. 
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f 'MAGIC SQUARE ' PROGRAM 

( KEYS 1--9 ON THE HEX KEYBOARD ARE EACH ASSOCIATED 
(WITH ONE LED IN THE 3X3! ARRAY. WHEN A KEY IS PRESSED r 
(IT CHANGES THE PATTERN OF THE LIT LEDS IN THE ARRAY. 
(THE OBJECT OF THE GAME IS TO CONVERT THE RANDOM 
(PATTERN THE GAME STARTS WITH TO A SQUARE OF LIT 
JLEDS BY PRESSING THE KEYS. THE LEDS WILL FLASH WHEN 
( THE WINNING PATTERN IS ACHIEVED , 
!KEY #0 CAN BE USED AT ANY TIME TO RESTART 
S THE GAME WITH A NEW PATTERN. 



GETKEY 


=$100 






T1CL 


=*A004 


»LOH REGISTER OF TIMER IN 6 


■522 VIA 


P0RT1 


=*A001 


S6522 VIA PORT A 




P0RT2 


=$A000 


J 6522 VIA PORT B 




TEMP 


=$0000 


S TEMPORARY STORAGE 




DDRA 


=*A003 


( DATA DIRECTION REGISTER OF 


PORT A 


DDRB 


=$A002 


»SAME FOR PORT B 






,=$200 







COMMENTS! THIS PROGRAM USES A TIMER REGISTER FOR A 
RANDOM NUMBER SOURCE. IF NONE IS AVAILABLE. A 
RANDOM NUMBER GENERATOR COULD BE USED. BUT 
DUE TO ITS REPEATABILITY, IT WOULD NOT WORK AS 
WELL. THIS PROGRAM USES PORT A'S REGISTERS FOR 











( STORAGE 


OF THE LED PATTERN. SINCE WHAT IS READ 










( BY THE 


PROCESSOR 


IS THE POLARITY OF THE 










( OUTPUT 


LINES r AN 


EXCESSIVE LOAD ON THE LINES WOULD 










( PREVENT 


THE PROGRAM FROM WORKING CORRECTLY, 


0200 ! 


A9 


FF 




LDA 


♦ $FF 


( SET UP PORTS FOR OUTPUT 


0202 ! 


SB 


03 


AO 


STA 


DDRA 




0205! 


8D 


02 


AO 


STA 


DDRB 




0208 ! 


AD 


04 


AO 


START LDA 


T1CL 


(GET 1ST RANDOM NUMBER 


020B! 


8D 


01 


AO 


STA 


P0RT1 




020E! 


AD 


04 


AO 


I...DA 


T1CL 


5 . . . AND SECOND, 


0211 ! 


29 


01 




AND 


#01 


S MASK OUT BOTTOM ROW I..FDS 


0213! 


8D 


00 


AO 


STA 


P0RT2 




021A! 


20 


00 


01 


KEY JSR 


GETKEY 




0219! 


C9 


00 




CMP 


#0 


f KEY MUST BE 1-9! IS IT 0? 


021B! 


FO 


EB 




BEO 


START 


(YES i RESTART GAME WITH NEW BOARD. 


021D! 


C9 


OA 




CMP 


♦ 10 


(IS IT LESS THAN .1.0? 


021F! 


10 


F5 




BPL 


KEY 


(f IF KEY >=10. SO GET ANOTHER 










( FOLLOWING SECTION USES KEY NUMBER AS INDEX TO FIND IN 










STABLE A BIT PATTERN 


USED TO COMPLEMENT LED'S 


0221 i 


38 






SEC 




(DECREMENT A FOR TABLE ACCESS 


0222! 


E9 


01 




SBC 


*1 




0224! 


OA 






A St.. 


A 


(MULTIPLY A*?. SINCE EACH ENTRY IN 














STABLE IS TWO BYTES. 


0225! 


AA 






TAX 




(USE A AS INDEX 


022A! 


AD 


01 


AO 


LDA 


P0RT1 


S GET PORT CONTENTS FOR COMPLEMENT 


0229! 


5D 


6B 


02 


FOR 


TABLE , X 


SEOR PORT CONTENTS W/PATTERN 


022C! 


8D 


01 


AO 


STA 


P0RT1 


(RESTORE P0RT1 


022F! 


AD 


00 


AO 


LDA 


P0RT2 


(DO SAME WITH P0RT2r 


0232! 


5D 


6C 


02 


EOR 


TABLE+1 f X 


(...USING NEXT TABLE ENTRY. 


0235! 


29 


01 




AND 


♦ 01 


S MASK OUT BOTTOM ROW LEDS 


0237! 


8D 


00 


AO 


STA 


P0RT2 


( . . .AND RESTORE. 










(THIS SECTION CHECKS 


FOR WINNING PATTERN IN LEDS 


023A! 


4A 






I...SR 


A 


(SHIFT BIT OF PORT 1 INTO CARRY. 


023B! 


90 


D9 




BCC 


KEY 


(IF NOT WIN PATTERN. GET NEXT MOVE 


023D! 


AD 


01 


AO 


LDA 


P0RT1 


( LOAD P0RT1 FOR WIN TEST 


0240! 


C9 


EF 




CMP 


♦ X1U01111 (CHECK FOR WIN PATTERN 


0242! 


DO 


D2 




BNE 


KEY 


(NO WIN r GET NEXT MOVE 



Fig. 5.3: Magic Square Program 
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i WIN 


BL INK 


I FD ' S 


FUFRY 1/^ SFP* 4 TTMF^ 


0244 i 


A9 


OE 






LDA 


414 




024 A 1 


85 


00 






STA 


TEMP 


JLOAD NUMBER OF EfLINNS 


0248 * 


A2 


20 




Bl I NK 


t nx 


♦ $20 


fDELAY CONSTANT FOR .08 SEC 


024A. 


AO 


FF 




DFLA Y 


LDY 


#$FF 


? OUTER LOOP OF VARIABLE DELAY 
















;routine» whose 'Delay time 
















ilS 2556 * (CONTENTS OF X ON ENTER 


024C ! 


EA 






DL.Y 


NOP 




!10 MICROSEC LOOP V 


024B i 


DO 


00 






BNE 


.+2 




024F t 


88 








DEY 






0250 J 


DO 


FA 






BNE 


DLY 




0252 i 


CA 








DEX 






0253 I 


DO 


F5 






BNE 


DELAY 




02551 


AD 


01 


AO 




LDA 


P0RT1 


r GET PORTS AND COMPLEMENT THEM 


0258! 


49 


FF 






EOF) 


t*FF 




025A! 


8D 


01 


AO 




STA 


P0RT1 




025D! 


AD 


00 


AO 




LDA 


P0RT2 




0260 : 


49 


01 






EOR 


♦ 1 




0262: 


8D 


00 


AO 




STA 


P0RT2 




0265! 


C6 


00 






DEC 


TEMP 


J COUNT DOWN NUMBER OF BLINKS 


0267: 


DO 


DF 






BNE 


BLINK 


;do again if not done 


0269: 


FO 


AB 






BEQ 


KEY 


t GET NEXT M0UE 



00 
24 



026B: IB 
026C! 00 
026D: 07 
026E: 00 
026F! 36 
0270 : 00 
0271 : 49 
0272: 00 
0273: DA 
0274! 
0275! 
0276! 01 
0277! D8 
0278! 00 
0279: CO 
027A: 01 
027B! BO 
027C: 01 



SYMBOL TABLE: 
GETKEY 
P0RT2 
DDRB 
BLINK 
TABLE 



f TABLE OF CODES USED TO COMPLEMENT LEDS 
TABLE .BYT X0001 101 1 r 5*00000000 
• BYT XOOOOOlllf/iOOOOOOOO 
•BYT XOOUOUCXOOOOOOOO 
.BYT XOlOOlOOlrZOOOOOOOO 
.BYT XlOlllOlOrZOOOOOOOO 
» BYT X00100100>200000001 
.BYT Z11011000, 200000000 
.BYT X11000000»X00000001 
.BYT X101 10000, XOOOOOOOl 



0100 
AOOO 
A002 
0248 
026B 



T1CL 
TEMP 
START 
DELAY 



A004 
0000 
0208 
024A 



P0RT1 
DDR A 
KEY 
DLY 



A001 
A003 
0216 
024C 



-Fig. S.3: Magic Square Program (Continuod)- 
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The data direction registers for Ports A and B of the VIA are con- 
figured for output to drive the LEDs: 



LDA #$FF 
STA DDRA 
STA DDRB 



The "random" numbers are then obtained by reading the value of 
timer 1 of the VIA and are used to provide a random pattern for the 
LEDs. (Two numbers provide 16 bits, of which 9 are kept.) 



START LDAT1CL Get 1st number 

STAPORT1 Use it 

LDA Tl CL Get 2nd number 

AND #01 Keep only position 

STAPORT2 Use it 



An explanation of the use of T1CL has been presented in the 
previous chapter. The program then monitors the keyboard for the 
key stroke of the player. It will accept only inputs "0" through "9" 
and will reject all others: 



KEY JSR GETKEY 

CMP #0 Is key 0? 

BEQ START 
CMP #10 

BPL KEY If key = 10 get another 



If the player has pressed key "0," the program is restarted with a new 
LED display. If it is a value between "1" and "9" that is pressed, the 
appropriate change must be performed on the LED pattern. The key 
number will be used as an index to the table of complementation 
codes. Since the keys are labeled 1 through 9, the key number must 
first be decremented by 1 in order to be used as an index. Since the 
table contains double-byte entries, the index number must also be 
multiplied by 2. This is performed by the following three instructions: 



SEC 

SBC #1 Subtract 1 

ASL A Multiply by 2 
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Remember that a shift left is equivalent to a multiplication by 2 in the 
binary system. The resulting value is used as an index and stored in in- 
dex register X: 

TAX 

The LED pattern is stored in the Port A data registers. It will be com- 
plemented by executing an EOR instruction on Port 1 , then repeating 
the process for Port 2: 

LDA PORT1 

EOR TABLE.X Complement Portl 
STA PORT1 

LDA PORT2 Same for Port2 

EOR TABLE + 1,X 

AND #01 Mask out unused bits 

STA PORT2 

Note that assembly-time arithmetic is used to specify the second byte 
in the table: 

EOR TABLE + 1,X 

Once the pattern has been complemented, the program checks for a 
winning pattern. To do so, the contents of Port 2 and Port 1 must be 
matched against the correct LED pattern. For Port 2, this is "0, 0, 0, 
0, 0, 0, 0, 1." For Portl, this is"l, 1, 1,0, 1, 1, 1, 1." Bit of Port 2 
happens presently to be contained in the accumulator and can be 
tested immediately after a right shift: 

LSRA Shift bit Oof Port 2 

BCC KEY 

The contents of Port 1 must be explicitly compared to the appropriate 
pattern: 

LDA PORT1 
CMP #%11101111 
BNE KEY 
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To confirm the win, LEDs are now blinked on the board. TEMP is 
used as a counter variable; X is used to set the fixed delay duration. Y 
is used as a counter for the innermost loop. Each port is com- 
plemented after the delay has elapsed. 



BLINK 
DELAY 



DLY 



SUMMARY 



LDA #14 
STA TEMP 
LDX #$20 
LDY #$FF 



NOP 
BNE . + 2 
DEY 

BNE DLY 
DEX 

BNE DELAY 
LDA PORT1 

EOR #$FF 
STA PORT1 
LDA PORT2 
EOR #1 
STA PORT2 
DEC TEMP 
BNE BLINK 
BEQ KEY 



Load number of blinks 
Delay constant for .08 sec 
Outer loop of variable 
delay routine, whose delay 
time is 2556 x (Contents 
of X on entry) 10 jus loop 



Get ports and complement 
them 



Count down number of blinks 
Do again if not done 
Get next key 



This game of skill required a special table to perform the various 
complementations. The timer is used directly to provide a pseudo- 
random number, rather than a program. The LED pattern is stored 
directly in the I/O chip's registers. 

EXERCISES 

Exercise 5-1: Rewrite the end of the program using a delay subroutine. 
Exercise 5-2: Will the starting pattern be reasonably random? 
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Exercise 5-3: Provide sound effects. 

Exercise 5-4: Allow the use of key "A " to perform a different change 
such as a total complementation. 

Exercise 5-5 (more difficult): Write a program which allows the com- 
puter to play and win. 

Exercise 5-6: Add to the previous exercise the following feature: 
record the number of moves played by the computer, then play against 
the computer. You must win in fewer moves. You may specify an 
identical starting pattern for yourself and the computer. In this case, 
you should start, then let the computer "show you. " If the computer 
requires more moves than you do, you are either an excellent player, a 
lucky player, or you are a poor programmer. Perhaps you are using 
the wrong algorithm! 
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(Spinner) 



INTRODUCTION 

This program will react in real time to an operator input. The game 
will operate at multiple levels of difficulty using more complex loop 
counters. 

THE RULES 

A light spins around the square formed by LEDs 1, 2, 3, 6, 9, 8, 7, 
and 4, in a counterclockwise fashion. 



t° 


• 


o 


o 


o 


o 


o 


o 


o 



The object of the game is to stop the light by hitting the key cor- 
responding to the LED at the exact time that the LED lights up. Every 
time that the spinning light is stopped successfully, it will start spin- 
ning at a faster rate. Every time that the player fails to stop the LED 
within 32 spins, the light will stop briefly on LED #4, then resume 
spinning at a slower pace. The expert player will be able to make the 
light spin faster and faster, until the maximum speed is reached. At 
this point, all the LEDs on the Games Board (LEDs 1 through 15) 
light up simultaneously. It is a win, and a new game is started. 

Each win is indicated to the player by a hesitation of the light on the 
LED corresponding to the key pressed. When a complete game is won, 
all LEDs on the Games Board will be lit. 
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This game can also be used to sharpen a player's reflexes, or to test 
his or her reaction time. In some cases, a player's reaction may be too 
slow to catch the rotating LED even at its slowest speed. In such a 
case, the player may be authorized to press two, or even three, con- 
secutive keys at once. This extends the player's response time. For ex- 
ample, with this program, if the player would press keys 7, 8, and 9 
simultaneously, the light would stop if it was at any one of those posi- 
tions (7, 8, or 9). 

THE ALGORITHM 

The flowchart is presented in Figure 6.1. The game may operate at 
eight levels of difficulty, corresponding to the successive speeds of the 
"blip" traveling with increased rapidity around the LED square. An 
8-bit counter register is used for two functions simultaneously. (See 
Figure 6.2.) The lower 3 bits of this register are used as the "blip- 
counter" and point to the current position of the light on the LED 
square. Three bits will select one of eight LEDs. The left-most 5 bits of 
this register are used as a "loop-counter" to indicate how many times 
the blip traverses the loop. Five bits allow up to 32 repetitions. LEDs 
are lit in succession by incrementing this counter. Whenever the blip- 
counter goes from "8" to "0," a carry will propagate into the loop- 
counter, incrementing it automatically. Allocating the 8 bits of 
register Y to two different conceptual counters facilitates program- 
ming. Another convention could be used. 

Every time that an LED is lit, the keyboard is scanned to determine 
whether the corresponding key has been pressed. Note that if the key 
was pressed prior to the LED being lit, it will be ignored. This is ac- 
complished with an "invalid flag." Thus, the algorithm checks to see 
whether or not a key was initially depressed and then ignores any fur- 
ther closures if it was. A delay constant is obtained by multiplying the 
difficulty level by four. Then, during the delay while the LED is lit, a 
new check is performed for a key closure if no key had been pressed 
at the beginning of this routine. If a key had been pressed at the begin- 
ning it will be treated as a miss, and the program will not check again 
to see if the key was pressed as the "invalid flag" will have been set. 

Every time the correct key is pressed during the delay while the LED 
is on (left branch of the flowchart in the middle section of Figure 
6.1), the value of the difficulty level is decremented (a lower difficulty 
number results in a higher rotation speed). For every miss on the part 
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of the player, the difficult, alue is incremented up to 15, resulting in 
a slower spin of the light. Once a difficulty level of has been reached, 
if a hit is recorded, all LEDs on the board will light to acknowledge 
the situation. 

THE PROGRAM 
Data Structures 

The program uses two tables. The KYTBL table stores the key 
numbers corresponding to the circular LED sequence: 1,2,3,6,9,8,7,4. 
It is located at memory addresses OB through 12. See the program 
listing in Figure 6.3. 

The second table, LTABLE, contains the required bit patterns 
which must be sent to the VIA's port to illuminate the LEDs in se- 
quence. For example, to illuminate LED #1, bit pattern "000000001, 
or 01 hexadecimal, must be sent. For LED #2, the bit pattern 
"00000010" must be sent, or 02 hexadecimal. Similarly, for the other 
LEDs, the required pattern is: 04, 20, 00, 80, 40; 0B in hexadecimal. 

Note that there is an exception for LED #9. The corresponding pat- 
tern is "0" for Port 1, and bit of Port 2 must also be turned on. We 
will need to check for this special situation later on. 

Program Implementation 

Three variables are stored in memory page 0: 

DURAT is the delay between two successive 



As usual, the program initializes the three required data direction 
registers: DDR1 on both Port A and Port B for the LEDs, and 
DDR3B for the keyboard: 



LED illuminations 



DIFCLT 
DNTST 



Is the "difficulty level" (reversed) 
Is a flag used to detect an illegal 
key closure when scanning the keys 



START 



LDA #$FF 
STA DDRIA 
STA DDRIB 
STA DDR3B 
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©■ 
& 



^ START ^ 



1 



DIFFICULTY = 8 



Hi 



COUNTER = 



USE BITS 0—2 OF 
COUNTER TO LOOK 
UP LED PATTERN IN 
TABLE, THEN DISPLAY 
PATTERN 



OUTPUT NUMBER OF 
KEY TO LOOK FOR 
(BITS 0-2 OF 
COUNTER) TO 
KEYBOARD 



<5 




SET INVALID FLAG 



DURAT = 128 



CLEAR INVALID FLAG 



DELAY CONST = 
4 X DIFFICULTY 



DELAY ACCORDING 
TO DELAY CONST 




Fig. 6. 1 : Spinner Flowchart 



90 



SIMPLE REAL TIME SIMULATION 




INCREMENT 
DIFFICULTY, MAKING 
SURE IT DOES NOT 
EXCEED 15 




6.1: Spinner Flowchart (Continued) 
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7 



6 



5 



4 



3 



2 







Y 



— V — 

LOOP 
COUNTER 



V — 

BLIP 
COUNTER 



Fig. 6.2: Dual Counter 



The difficulty level is set to 8, an average value: 



LDA #8 
STA DFCLT 



The keystrobe port is conditioned for input: 
STA DDR3A 

The Y register, to be used as our generalized loop-plus-blip-counter, is 
set to"0": 

NWGME LDY #0 

The key-down indicator is also set to "0": 

LOOP LDA #0 

STA DNTST 

LED #9 is cleared: 

STA PORT1B 

The lower 3 bits of the counter are extracted. They contain the blip- 
counter and are used as an index into the LED pattern table: 



The pattern is obtained from LTABL, using an indexed addressing 



TYA 

AND #$07 
TAX 



Y contains counter 
Extract lower 3 bits 
Use as index 
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LINE 


* L0C 




CODE 


LINE 








0002 


0000 








( 


'SPINNER' 






0003 


0000 








(PROGRAM TO TEST REACTION TIME OF PLAYER. 




0004 


0000 








(BLIP OF LIGHT, SPINS AROUND EDGE 














(OF 3X3 LED MATRIX. 


AND USER MUST PRESS 














! CORRESPONDING KEY* 


IF, AFTER A NUMBER OF 






0000 








(SPINS 


, CORRECT KEY 


HAS NOT BEEN PRESSED , 




OOOft 










(BLIP SPINS SLOWER. 


IF CORRECT KEY HAS BEEN 






ftnoo 








(PRESSED- BLIP SPINS FASTER. ALL 




0010 










(LEDS LIGHT WHEN SUCCESSFUL KEYPRESS 




001 1 


0000 








(OCCURS ON MAXIMUM 


SPEED. 




nni \ 




















nnnn 








(I/O : 








0014 


0000 
















0015 


0000 








PORTIA 


= *A001 


(LEDS 1-8 




0016 










P0RT1B 


= *A000 


(LEDS 8-15 




0017 










DDR1A 


= *A003 






0018 


0000 








DDR1B 


= *A002 






0019 


0000 








P0RT3A 


= tACOl 


(KEY STROBE INPUT. 




0020 


0000 








P0RT3B 


= *AC00 


(KEY * OUTPUT. 




0021 


0000 








DDR3A 


= »AC03 
















DDR3B 


= *AC02 






0023 


0000 


























(VARIABLE STORAGE! 






0025 




















0000 










* - *0 






0027 


0000 
















0028 


0000 








DURAT 


*=*+l 


(DURATION OF INTER-MOVEMENT 


DELAY. 


0029 


0001 








DIFCLT 


*=*+l 


(DIFFICULTY LEVEL. 




0030 


0002 








DNTST 


*=*+! 


(SET TO *01 IF KEY DOWN AT 


START 


0031 


0003 










(OF INTER-MOVEMENT DELAY . 




0032 


0003 








( 








0033 


0003 








(TABLE 


OF PATTERNS 


TO BE SENT TO LED 














(MATRIX AT EACH LOOP COUNT. 




0035 


0003 








(SET FOR CLOCKWISE 


ROTATION STARTING AT LED *1. 




0036 


0003 








( 










0003 


01 






LTABLE 


.BYTE *01,*0 


2 > « 04 , *20 , *00 , *80 > » 40 , *08 




0037 




02 














0037 


0005 


04 














0037 


0006 


20 














0037 


0007 


00 














0037 


0008 


80 














0037 


0009 


40 














0037 


000A 


08 














0038 


000B 
















0039 


000B 








(TABLE 


OF PATTERNS 


TO BE SENT TO KEYBOARD 




0040 


0OOB 








(TO TEST IF LEDS ARE ON AT EACH LOOP COUNT. 




0041 


000B 
















0042 


000B 


01 






KYTBL 


. BYTE 1.2,3, 


6,9,8,7,4 




0042 


OOOC 


02 














0042 


000D 


03 














0042 


000E 


06 














0042 


000F 


09 














0042 


0010 


08 














0042 


001 1 


07 


















04 
































0044 


0013 








(MAIN 


PROGRAM 






0045 


0013 
















0046 


001 3 










* = *200 






0047 


0200 
















0048 


0200 


A9 


FF 




START 


LDA **FF 


(SET I/O REGISTERS. 




0049 


0202 


8D 


03 


AO 




STA DDR1A 












02 


AO 




STA DDR1B 






0051 


0208 


8D 


02 


AC 




STA DDR3B 






0052 


020B 


A9 


08 






LDA #8 






0053 


020D 


85 


01 






STA DIFCLT 


(SET DIFFICULTY. 




0054 


020F 


8D 


03 


AC 




STA DDR3A 


(SET KEYSTROBE PORT. 




0055 


0212 


AO 


00 




NWGME 


LDY #0 


(RESET LOOP/BLIP COUNTER . 




0056 


0214 


A9 


00 




LOOP 


LDA *0 






0057 


0216 


85 


02 






STA DNTST 


(CLEAR KEYDOWN INDICATOR. 




0058 


0218 


8D 


00 


AO 




STA P0RT1B 


(CLEAR HI LED PORT . 




0059 


021B 


98 








TYA 


(USE LOWER 3 BITS OF MAIN 


COUNTER 


0060 


021C 


29 


07 






AND **07 


(AS INDEX TO FIND LED PATTERN 


0061 


021E 


AA 








TAX 


(IN TABLE OF PATTERNS. 




0062 


021F 


B5 


03 






LDA LTABLE, X (GET PATTERN FOR LED TO 





Fig. 6.3: Spinner Program 
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0063 


0221 












BE TURNED 


ON. 


0064 


0221 


8D 


01 


AO 




STA 


PORTIA 




( STORE IN LED PORT. 


0065 


0224 


DO 


05 






BNE 


CHECK 




( IF PATTERN <> 0, SKIP. 


0066 


0226 


A9 


01 






LDA 


♦ 1 




(PATTERN=0* SO SET HI BIT. 


0067 


0228 


8D 


00 


AO 




STA 


P0RT1B 






0068 


022B 


B5 


OB 




CHECK 


LDA 


KYTBL.X 




iGET KEY* TO TEST FOR. 


0069 


022D 


8D 


00 


AC 




STA 


P0RT3B 




( STORE IN KEYPORT. 


0070 


0230 


2C 


01 


AC 




BIT 


P0RT3A 




f STROBE HI? 


0071 


0233 


30 


04 






BMI 


DELAY 




(IF NOTi SKIP. 


0072 


0235 


A9 


01 




INVALD 


LDA 


#01 




iSTOBE HI! SET KEY DOWN MARKER . 


0073 


0237 


85 


02 






STA 


DNTST 






0074 


0239 


A9 


80 




DELAY 


LDA 


*$80 




(GET ♦ OF LOOP CYCLES < DELAY LENGTH 


0075 


023B 


85 


00 






STA 


DURAT 






0076 


023D 


A5 


01 




DL1 


LDA 


DIFCLT 




(MULTIPLY DIFFICULTY COUNTER 


0077 


023F 


OA 








ASL 


A 




(BY FOUR TO DETERMINE DELAY 


0078 


0240 


OA 








ASL 


A 




(LENGTH. 


0079 


0241 


AA 








TAX 








0080 


0242 


26 


02 




DL2 


ROL 


DNTST 




(DELAY ACCORDING TO DIFCLT. 


0081 


0244 


66 


02 






ROR 


DNTST 






0082 


0246 


CA 








DEX 








0083 


0247 


DO 


F9 






BNE 


DL2 




(LOOP 'TIL COUNT = 


0084 


0249 


A5 


02 






LDA 


DNTST 




(GET KEY DOWN FLAG . 


0085 


024B 


DO 


05 






BNE 


NOTST 




(IF KEY WAS DOWN AT BEGINNING OF 


0086 


024D 










■DELAY. DON 


T 


TEST IT. 


0087 


024D 


2C 


01 


AC 




BIT 


P0RT3A 




(CHECK KEY STROBE. 


0088 


0250 


10 


19 






BPL 


HIT 




(KEY HAS CLOSED DURING DELAY I HIT. 


0089 


0252 


C6 


00 




NOTST 


DEC 


DURAT 




(COUNT DELAY LOOP DOWN. 


0090 


0254 


DO 


E7 






BNE 


BL1 




(LOOP IF NOT 0. 


0091 


0256 


C8 








INY 






(INCREMENT MAIN SPIN COUNTER. 


0092 


0257 


DO 


BB 






BNE 


LOOP 




(IF 32 LOOPS NOT DONE r DO NEXT LOOP 


0093 


0259 


A6 


01 






LDX 


DIFCLT 




(NO HITS THIS TIME, MAKE NEXT 


0094 


025B 












iEASIER. 




0095 


025B 


E8 








INX 








0096 


025C 


8A 








TXA 






(MAKE SURE DIFFICULTY DOES NOT 


0097 


0250 


C9 


10 






CMP 


*16 




(EXCEED 15 


0098 


025F 










BNE 


OK 






0099 


0261 


A9 


nr 






LDA 


*15 








026^ 










STA 


DIFCLT 






0101 




^0 


80 






JSR 


WAIT 




(PAUSE A BIT. 


0102 


0268 


4C 


1 2 


02 




JMP 


NUGME 




(START NEW ROUND. 










02 


HIT 


JSR 


WAIT 




(PAUSE A BIT. 


0104 


026E 


C6 


01 






DEC 


DIFCLT 




(MAKE NEXT GAME HARDER. 


0105 


0270 


DO 


AO 






BNE 


NUGME 




(IF DIFFICULTY NOT (HARDEST). 


0106 


0272 












iPLAY 


NEXT GAME. 


0107 


0272 


A9 


FF 






LDA 


**FF 




(PLAYER HAS MADE IT TO TOP 


0108 


0274 


8D 


01 


AO 




STA 


PORTIA 




(DIFFICULTY LEVEL, LIGHT ALL LEDS. 


0109 


0277 


8D 


00 


AO 




STA 


P0RT1B 






0110 


027A 


20 


80 


02 




JSR 


WAIT 




(PAUSE A BIT. 


0111 


027D 


4C 


00 


02 




JMP 


START 




( PLAY ANOTHER GAME. 


0112 


0280 


















0113 


0280 








(SUBROUTINE 'WAIT' 






0114 


0280 








(SHORT 


DELAY. 






0115 


0280 


















0116 


0280 


AO 


FF 




WAIT 


LDY 


**FF 






0117 


0282 


A2 


FF 




LP1 


LDX 


**FF 






0118 


0284 


66 


00 




LP2 


ROR 


DURAT 






0119 


0286 


26 


00 






ROL 


DURAT 






0120 


0288 


66 


00 






ROR 


DURAT 






0121 


028A 


26 


00 






ROL 


DURAT 






0122 


028C 


CA 








DEX 








0123 


028D 


DO 


F5 






BNE 


LP2 






0124 


02BF 


88 








BEY 








0125 


0290 


DO 


FO 






BNE 


LP1 






0126 


0292 


60 








RTS 








0127 


0293 










.END 







SYMBOL TABLE 
SYMBOL VALUE 



CHECK 


022B 


DDR1A 


A003 


DDR IB 


A002 


DDR3A 


AC03 


DDR3B 


AC02 


DELAY 


0239 


DIFCLT 


0001 


DL1 


023D 


DL2 


0242 


DNTST 


0002 


DURAT 


0000 


HIT 


026B 


INVALD 


0235 


KYTBL 


OOOB 


LOOP 


0214 


LP1 


0282 


LP2 


0284 


LTABLE 


0003 


NOTST 


0252 


NWGME 


0212 


OK 


0263 


PORTIA 


A001 


P0RT1B 


AOOO 


P0RT3A 


AC01 


P0RT3B 


ACOO 


START 


0200 


WAIT 


0280 






END OF 


ASSEMBLY 















Fig. 6.3: Spinner Program (Continued) 
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mechanism with register X, and this pattern is output on Port 1A to 
light up the appropriate LED: 

LDA LTABLE, X Get pattern 

STA PORTIA Use it to light up LED 

As we indicated in the previous section, an explicit check must be 
made for the pattern "0," which requires that bit of Port B be 
turned on. This corresponds to LED #9: 



BNE CHECK Was pattern = 0? 
LDA #1 If not, set LED #9 

STA PORT1B 



Once the correct LED has been lit, the keyboard must be inspected to 
determine whether the player has already pressed the correct key. The 
program only checks the key number corresponding to the LED being 
lit: 



CHECK LDA KYTBL.X X contains correct pointer 

STA PORT 3B Select correct key 

BIT PORT 3 A Strobe hi? 

BMI DELAY If not, skip 



If the corresponding key is down (a strobe high on Port 3A is 
detected), the key-down flag, DNTST, is set to "1": 



INVALD LDA #01 

STA DNTST 



This is an illegal key closure. It will be ignored. A delay to keep the 
LED lit is implemented by loading a value in memory location 
DURAT. This location is used as a loop-counter. It will be 
decremented later on and will cause a branch back to location DL1 to 
occur: 



DELAY LDA #$80 

STA DURAT 



The difficulty counter, DIFCLT, is then multiplied by four. This is ac- 
complished by two successive left shifts: 
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DL1 LDA DIFCLT 

ASL A 
ASL A 
TAX 

The result is saved in index register X. It will determine the delay 
length. The lower the "difficulty-level," the shorter the delay will be. 
The delay loop is then implemented: 

DL2 ROL DNTST 

ROR DNTST 
DEX 

BNE DL2 Loop til count = 

The key-down flag, DNTST, is then retrieved from memory and 
tested. If the key was down at the beginning of this routine, the pro- 
gram branches to location NOTST. Otherwise, if a closure is detected, 
a hit is reported and a branch occurs to location HIT: 

LDA DNTST 
BNE NOTST 

BIT PORT3A Check key strobe 
BPL HIT 

At NOTST, the external delay loop proceeds: the value of DURAT is 
decremented and a branch back to location DL1 occurs, unless 
DURAT decrements to "0." Whenever the delay decrements to "0" 
without a hit, the main counter (register Y) is incremented by 1 . This 
results in advancing the blip-counter (lower three bits of register Y) to 
the next LED. However, if the blip-counter was pointing to LED #4 
(the last one in our sequence), the loop-counter (upper 5 bits of 
register Y) will automatically be incremented by 1 when the blip- 
counter advances. If the value 32 is reached for the loop-counter, the 
value of register Y after incrementation will be "0" (in fact, an 
overflow will have occurred into the carry bit). This condition is tested 
explicitly: 

NOTST DEC DURAT 

BNEDL1 Loop if not 

INY Increment counter 

BNE LOOP 32 loops? 



96 



SIMPLE REAL TIME SIMULATION 



Once the Y register has overflowed, i.e., 32 loops have been executed, 
the difficulty value is increased, resulting in a slower spin: 

LDX DIFCLT No hits. Make it easier 
INX 

The maximum difficulty level is 15, and this is tested explicitly: 

TXA Only A may be compared 

CMP #16 
BNE OK 

LDA #15 Stay at 15 maximum 

OK STA DIFCLT 

Finally, a brief pause is implemented: 

JSR WAIT 
and a new spin is started: 

JMP NWGME 

In the case of a hit, a pause is also implemented: 

HIT JSR WAIT 

then the game is made harder by decrementing the difficulty count 
(DIFCLT) 

DEC DIFCLT 

The difficulty value is tested for "0" (fastest possible spin). If the "0" 
level has been reached, the player has won the game and all LEDs are 
illuminated: 

BNE NWGME If not 0, play next game 
LDA #$FF It is a win 

STA PORTIA Light up 
STA PORT IB 

The usual pause is implemented, and a new game is started: 
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JSR WAIT 
JMP START 

The pause is achieved with the usual delay subroutine called "WAIT." 
It is a classic, two-level nested loop delay subroutine, with additional 
do-nothing instructions inserted at address 0286 to make it last longer: 



WAIT 


LDY #$FF 


LP1 


LDX #$FF 


LP2 


ROR DURAT 




ROL DURAT 




ROR DURAT 




ROL DURAT 




DEX 




BNE LP2 




DEY 




BNE LP1 




RTS 



SUMMARY 



This program implemented a game of skill. Multiple levels of diffi- 
culty were provided in order to challenge the player. Since human 
reaction time is slow, all delays were implemented as delay loops. For 
efficiency, a special double-counter was implemented in a single register: 
the blip counter — loop counter. 

EXERCISES 

Exercise 6-1: There are several ways to "cheat" with this program. 
Any given key can be vibrated rapidly. Also, it is possible to press any 
number of keys simultaneously, thereby massively increasing the 
odds. Modify the above program to prevent these two possibilities. 

Exercise 6-2: Change the rotation speed of the light around the LEDs 
by modifying the appropriate memory location. (Hint: this memory 
location has a name indicated at the beginning of the program.) 

Exercise 6-3: Add sound effects. 
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7. Real Time Simulation 
(Slot Machine) 



INTRODUCTION 

This program simulates an actual electro-mechanical machine and 
operates in real time. It performs a complex score evaluation using indexed 
addressing techniques as well as special data structures to facilitate and 
expedite the process. 

THE RULES 

This program simulates a Las Vegas-type slot machine. The rota- 
tion of the wheels on a slot machine is simulated by three vertical rows 
of lights on LED columns 1-4-7, 2-5-8, and 3-6-9. The lights "rotate" 
around these three columns, and eventually stop. (See Figure 7.1.) The 
final light combination representing the player's score is formed by 
LEDs 4-5-6, i.e., the middle horizontal row. 

At the beginning of each game, the player is given eight points. The 
player's score is displayed by the corresponding LED on the Games 
Board. At the start of each game, LED #8 is lit, indicating this initial 
score of 8. 

The player starts the slot machine by pressing any key. The lights 
start spinning on the three vertical rows of LEDs. Once they stop, the 
combination of lights in LEDs 4, 5, and 6 determines the new score. If 
either zero or one LED is lit in this middle row, it is a lose situation, 
and the player loses one point. If two LEDs are lit in the middle row, 
the player's score is increased by one point. If three LEDs are lit in the 
middle row, three points are added to the player's score. 

Whenever a total score of zero is obtained, the player has lost the 
game. The player wins the game when his or her score reaches 16 
points. Everything that happens while the game is being played pro- 
duces tones from the machine. While the LEDs are spinning, the 
speaker crackles, reinforcing the feeling of motion. Whenever the 
lights stop rotating, a tone sounds in the speaker, at a high pitch if it is 
a win situation, or at a low pitch if it is a lose situation. In particular, 
after a player takes his or her turn, if there are three lights in the mid- 
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— SCORE 



WHEEL 1 WHEEL 2 WHEEL 3 



Fig. 7.1: The Slot Machine 



die row (a win situation), the speaker will go beep-beep-beep in a high 
pitch, to draw attention to the fact that the score is being incremented 
by three points. Whenever the maximum of 16 points is reached, the 
player has obtained a "jackpot." At this point all the LEDs on the 
board will light up simultaneously, and a siren sound will be generated 
(in ascending tones). Conversely, whenever a null score is reached, a 
siren will be sounded in descending tones. 

Note that, unlike the Las Vegas model, this machine will let you win 
frequently! Good luck. However, as you know, it is not as much a 
matter of luck as it is a matter of programming (as in Las Vegas ma- 
chines). You will find that both the scoring and the probabilities can 
be easily modified through programming. 

A TYPICAL GAME 

The Games Board initially displays a lit LED in position 8, in- 
dicating a starting score of 8. At this point the player should select and 
press a key. For this example let's press key 0. The lights start spin- 
ning. At the end of this spin, LEDs 4, 5, and 9 are lit. (See Figure 7.2.) 
This is a win situation and one point will be added to the score. The 
high-pitch tone sounds. LED #9 is then lit to indicate the total of the 8 
previous points plus the one point obtained on this spin. 



100 



REAL TIME SIMULATION 



O 



O 



O 





WIN 



o 



o 




Fig. 7.2: A Win Situation 



Key is pressed again. This time only LED 5 in the middle row is lit 
after the spin. The score reverts back to 8. (Remember, the player 
loses 1 point from his or her score if either zero or only one LED in the 
middle row is lit after the spin.) 

Key is pressed again; this time LEDs 5 and 6 light up resulting in a 
score of nine. 

Key is pressed again. LED 4 is lit at the end of the spin, and LED 8 
lights up again. 
Key is pressed. LED 6 is lit. The score is now 7, etc. 

THE ALGORITHM 

The basic sequencing for the slot machine program is shown in the 
flowchart in Figure 7.3. First, the score is displayed, then the game is 
started by the player's key stroke and the LEDs are spun. After this, 
the results are evaluated: the score is correspondingly updated and a 
win or lose situation is indicated. 

The LED positions in a column are labeled 0, 1 , 2, from the top to bot- 
tom. LEDs are spun by sequentially lighting positions 0, 1 , 2, and then 
returning to position 0. The LEDs continue to spin in this manner and 
their speed of rotation diminishes until they finally come to a stop. 
This effect is achieved by incrementing the delay between each suc- 
cessive actuation of an LED within a given column. A counter-register 
is associated with each "wheel," or column of three LEDs. The initial 
contents of the three counters for wheels 1 , 2, and 3 are obtained from 
a random number generator. In order to influence the odds, the ran- 
dom number must fit within a programmable bracket called (LOLIM, 
HILIM). The value of this counter is transferred to a temporary 
memory location. This location is regularly decremented until it 
reaches the value "0." When the value is reached, the next LED on 
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INITIAL 
SCORE = 8 



11 

DISPLAY SCORE 



WAIT FOR 
KEY STROKE 

ZE 

SPIN THE LEOs 

m 

EVALUATE RESULT 
DISPLAY SCORE 



ZL 

SIGNAL WIN 
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the "wheel" is lit. In addition, the original counter contents are in- 
cremented by one, resulting in a longer delay before lighting up the 
next LED. Whenever the counter overflows to 0, the process for that 
wheel stops. Thus, by using synchronous updating of the temporary 
memory locations, the effect of asynchronously moving LED "blips" 
is achieved. When all LEDs have stopped, the resulting position is 
evaluated. 

The flowchart corresponding to this DISPLAY routine is shown in 
Figure 7.4. Let us analyze it. In steps 1, 2, and 3 the LED pointers are 
initialized to the top row of LEDs (position 0). The three counters 
used to supply the timing interval for each wheel are filled with num- 
bers from a random number generator. The random number is selected 
between set limits. Finally, the three counters are copied into the tem- 
porary locations reserved for decrementing the delay constants. 

Let us examine the next steps presented in Figure 7.4: 

4. The wheel pointer X is set at the right-most column: X = 3. 

5. The corresponding counter for the current column (column 3 
this time) is tested for the value to see if the wheel has stopped. 
It is not the first time around. 

6,7. The delay constant for the column of LEDs determined by 
the wheel pointer is decremented, then it is tested against the 
value 0. If the delay is not 0, nothing else happens for this 
column, and we move to the left by one column position: 

16. The column pointer X is decremented: X = X - 1 

17. X is tested against zero. If X is zero, a branch occurs to 
step 5. Every time that X reaches the value zero, the same 
situation may have occurred in all three columns. All 
wheel counters are, therefore, tested for the value zero. 

18. If all counters are zero, the spin is finished and exit oc- 
curs. If all counters are not zero, a delay is implemented, 
and a branch back to (4) occurs. 

Back to step 7: 

7. If the delay constant has reached the value zero, the next 
LED down in the column must be lit. 

8. The LED pointer for the wheel whose number is in the wheel 
pointer is incremented. 

9. The LED pointer is tested against the value 4. If 4 has not 
been reached, we proceed; otherwise, it is reset to the value 1 . 
(LEDs are designated externally by positions 1 , 2, and 3 from 
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^DISPLAY START^ 



1 LED POINTERS = 



FILL COUNTERS WITH 
RANDOM NUMBERS 
BETWEEN LOLIM 
& MUM 



COPY COUNTERS TO 
CORRESPONDING 
DELAY CONSTANT 
LOCATIONS 




DECREMENT DELAY 
CONSTANT (X) 




Fig. 7.4: DISPLAY Flowchart 
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top to bottom. The next LED to be lit after LED #3 is LED 
#1.) 

10,11. The LED must be lit on the board, and a table LIGHTABLE 
is utilized to obtain the proper pattern. 

12. The counter for the appropriate wheel is incremented. Note 
that it is not tested against the value zero. This will occur only 
when the program moves to the left of wheel 1 . This is done 
at location 18 in the flowchart, where the counters are tested 
for the value zero. 

13 . The new value of the counter is copied into the delay constant 
location, resulting in an increased delay before the next LED 
actuation. 

14. The current lighting patterns of each column are combined 
and displayed. 

15. As each LED is lit in sequence, the speaker is toggled (ac- 
tuated) . 

16. As usual, we move to the column on the left and proceed as 
before. 

Let us go back to the test at step 5 in the flowchart: 
5. Note that whenever the counter value for a column is zero, 
the LED in that column has stopped moving. No further ac- 
tion is required. This is accounted for in the flowchart by the 
arrow to the right of the decision box at 5: the branch occurs 
to 16 and the column pointer is decremented, resulting in no 
change for the column whose counter was zero. 
Next, the evaluation algorithm must evaluate the results once all 

LEDs have stopped and then it must signal the results to the player. 

Let us examine it. 

The Evaluation Process 

The flowchart for the EVAL algorithm is shown in Figure 7.5. The 
evaluation process is also illustrated in Figure 7.6, which shows the 
nine LEDs and the corresponding entities associated with them. Refer- 
ring to Figure 7.6, X is a row-pointer and Y is a column- or wheel- 
pointer. A value counter is associated with each row. It contains the 
total number of LEDs lit in that row. This value counter will be con- 
verted into a score according to specific rules for each row. So far, we 
have only used row 2 and have defined a winning situation as being 
one in which two or three LEDs were lit in that row. However, many 
other combinations are possible and are allowed by this mechanism. 
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Exercises will be suggested later for other winning patterns. 

The total for all of the scores in each row is added into a total called 
SCORE, shown at the bottom right-hand corner of Figure 7.6. 

Let us now refer to the flowchart in Figure 7.5. The wheel- or col- 
umn pointer Y is set initially to the right-most column: Y = 3. 

2. The temporary counters are initialized to the value zero. 

3. Within the current column (3), we need only look at the row 
which has a lit LED. This row is pointed to by LED- 
POINTER. The corresponding row value is stored in: 

X = LED POINTER (Y) 

4. Since an LED is lit in the row pointed to by X, the value 
counter for that row is incremented by one. 

Assuming the LED situation of Figure 7.7, the second value counter 
has been set to the value 1 . 

5. The next column is examined: Y = Y - 1 . 

If Y is not 0, we go back to (3); otherwise the evaluation process 
may proceed to its next phase. 

Exercise 7-1: Using the flowchart of Figure 7.5, and using the example 
of Figure 7. 7, show the resulting values contained in the value counters 
when we finally exit from the test at (6) in the flowchart of Figure 7.5. 

The actual number of LEDs lit in each row must now be trans- 
formed into a score. The SCORETABL is used for that purpose. If the 
scoring rules contained in this table are changed, they will completely 
modify the way the game is played. 

The score table contains four byte-long numbers per row. Each 
number corresponds to the score to be earned by the player when 0, 1 , 
2, or 3 LEDs are lit in that row. The logical organization of the score 
table is shown in Figure 7.8. The entries in the table correspond to the 
score values which have been selected for the program presented at 
the beginning of this chapter. Any combination of LEDs in rows 1 or 
3 scores 0. Any combination of 2 LEDs in row 2 scores 1 , but, three 
LEDs score 3. Practically, this means that the score value of row 1 is 
obtained by merely using an indexed access technique with the number 
of LEDs lit as the index. For row 2, a displacement of four must be 
added for table access. In row 3, an additional displacement of four 
must be added. Mathematically, this translates to: 

SCORE = SCORETABL[(X - 1) X 4 + 1 + Y] 
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Fig. 7.5: EVAL Flowchart 
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Fig. 7.S: EVAL Flowchart (Continued) 
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O + + 

o + o + o 

q + O + 




SCORE 



TOTAL = 



SCORE 



Fig. 7.6: Evaluation Process on the Board 



Y = 1 Y = 2 Y = 3 



X = 1 



X = 2 



X = 3 



o 


• 


o 


• 


o 


• 


o 


o 


o 




Fig. 7.7: An Evaluation Example 

where X is the row number and Y is the number of LEDs lit for that 
row. Since this technique allows each of the three rows to generate a 
score, the program must test the value counter in each row to obtain 
the total score. 

This is accomplished by steps 7 and 8: the row pointer is initialized 
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1 2 3 NUMBER LEDs LIT 

ROW1 



ROW 2 



ROW 3 



Fig. 7.8: The Score Table 



to 3, and a score table displacement pointer is set up: 
TEMP = (X - 1) x 4 + 1 

9. Next, the value of the score is obtained from the table: 

Q = SCORTABL (value counter (X), TEMP) 

The value of that row's score is obtained by accessing the score 
table indexed by the number of LEDs lit, contained in the value counter 
for that row, plus a displacement equal to TEMP. The intermediate 
score is obtained by adding this partial score to any previous value: 

10. SCORTMP = SCORTMP + Q 

11 . Finally, the row number is decremented, and the process is 
repeated until X reaches the value 0. 

12. Whenever X reaches the value 0, the score for this spin has 
been computed and stored in location SCORTMP. 

13. At this point, the score computed above (SCORTMP) is ex- 
amined by the program, and two possibilities exist: if the 
SCORTMP is 0, a branch occurs to 20, where the game score 
is decremented. If SCORTMP is not 0, the game score will be 
increased by the score for this spin — SCORTMP. Let us 
follow this path first. 

14. The total game score is incremented by one. 

15. It is then tested for the maximum value of 16. 
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16. If the maximum score of 16 is reached in step 15, a special 
audible and visual signal is generated to reward the player. A 
new game may be started. 

17. If 16 is not reached in step 15, the updated game score is 
shown to the player, accompanied by a high-pitched tone. 

18. The amount by which the game score must be increased, 
SCORTMP, is decremented. 

19. If SCORTMP is not zero, more points must be added to the 
game score, and a branch occurs to 14. Otherwise, the player 
may enter the next spin. 

Let us now follow the other path from position thirteen on the 
flowchart, where the total score had been tested: 

20. The score for this spin is 0, so the game score is decremented. 

21. It is displayed to the player along with a low tone. 

22. The new score is tested for the minimum value 0. If this 
minimum value has been reached, the player has lost. Other- 
wise, the player may keep playing. 

23. A descending siren-type tone is generated to indicate the loss, 
and the game ends. 

THE PROGRAM 
Data Structures 

Two tables are used by this program: 1) the score table is used to 
compute a score from the number of LEDs lit in each row — this has 
already been described; 2) the LTABLE is used to generate the ap- 
propriate code on the I/O port to light the specified LED. Each entry 
within this table contains a pattern to be OR'ed into the I/O register to 
light the specified LED. 

Vertically, in the memory, the table entries correspond to the first 
column, the second column, and then the third column of LEDs. 
Looking at the program on lines 39, 40, and 41, the rows of digits cor- 
respond respectively to the columns of LEDs. For example, the third 
entry in the table, i.e., 64 decimal, or 40 hexadecimal (at address 
00 1C) corresponds to the third LED in the first column on the Games 
Board, or LED 7. 

Page Zero Variables 

The following variables are stored in memory: 
— TEMP is a scratch location 
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LINE t LOC CODE LINE 



0002 






*SLOT MACHINE SIMULATOR PROGRAM. 




oooo 




f PRESS 


ANY KEY TO START 'SPIN'. 




noon 




* SCORE 


DETERMINED BY ARRAY 'SCORTB' . 








*8 POINTS INITIAL SCORE* ONE POINT PENALTY 


0006 


0000 




,FOR EACH BAD SPIN. 


0007 


0000 




f 




0008 


0000 






* - *0 


0009 


0000 




TEMP 


*=*+l (TEMPORARY STORAGE. 


0010 


0001 




SCORTP 


*=*+l (TEMPORARY SCORE STORAGE. 


001 1 


0002 




SCORE 


*=*+l (SCORE* 


0012 


0003 




DUR 


*=*+l J DURATION OF TONES. 








FREQ 


*=*+i (frequency of tones. 


0014 


0005 




SPEEDS 


*=*+3 ( SPEEDS OF REVOLUTION FOR LEDS 


0015 


0008 






(IN COLUMNS 








INDX 


*=*+3 (DELAY COUNTERS FOR LED REVOLUTIONS 


0017 


OOOB 




INCR 


*=*+3 (POINTERS FOR LED POSITIONSI 


0018 


000E 






(USED TO FETCH PATTERNS OUT OF TABLES. 




nA?f 




LTMSK 


*=*+3 (PATTERNS FOR LIT LEDS 




nnii 




VALUES 


*=*+3 (NO. OF LIT LEDS IN EACH ROW. 


0021 






RND 


*=*+6 (SCRATCHPAD FOR RND # GEN. 


0022 


001 A 








0023 






9 I/O 














0025 


001 A 




PORTIA 


= »A001 (VIA#1 PORT A I/O REG (LEDS) 


0026 


001 A 




DDR1A 


= *A003 (VIA#1 PORT A DATA DIRECTION REG. 


0027 


001 A 




P0RT1B 


» »AOO0 *VIA#1 PORT B I/O REG. (LEDS) 


0028 


001 A 




DDR IB 


= »A002 (VIA*1 PORT B DATA DIRECTION REG. 


0029 


001A 




P0RT3B 


« *AC00 *VIA#3 PORT B I/O REG. (SPKR) 


0030 


001 A 




DDR3B 


■ *AC02 (VIA#3 PORT B DATA DIRECTION REG. 


0031 


001A 




T1CL 


* *A004 


0032 


001 A 




f 




0033 


001A 




(ARRAYS 


0034 


001 A 








0035 


001A 




(ARRAY 


OF PATTERNS TO LIGHT LEDS. 


0036 


001A 




* ARRAY 


ROWS CORRESPOND TO COLUMNS OF LED 


0037 


001A 




f ARRAY 


AND COLUMNS TO ROWS. FOR EXAMPLE, THIRD 


0038 


001A 




(BYTE IN ROW ONE WILL LIGHT LED 7. 


0039 


001A 


01 


LTABLE 


.BYTE 1,8,64 


0039 


00 IB 


08 






0039 


001C 


40 






0040 


001D 


02 




.BYTE 2,16*128 


0040 


001E 


10 






0040 


001F 


80 






0041 


0020 


04 




.BYTE 4,32,0 


0041 


0021 


20 






0041 


0022 


00 






0042 


0023 




( ARRAY 


OF SCORES RECEIVED FOR CERTAIN 


0043 


0023 




(PATTERNS OF LIT LEDS. 


0044 


0023 




(ROUS CORRESPOND TO ROUS IN LED ARRAY. 


0045 


0023 




f COLUMNS CORRESPOND TO NUMBER OF LEDS 


0046 


0023 




(LIT IN THAT ROW. 


0047 


0023 




(I.E.* 


3 LEDS IN MIDDLE ROW IS 3 PTS. 


0048 


0023 


00 


SCORTB 


.BYTE 0*0,0,0 


0048 


0024 


00 






0048 


0025 


00 






0048 


0026 


00 






0049 


0027 


00 




.BYTE 0,0,1,3 


0049 


0028 


00 






0049 


0029 


01 






0049 


002A 


03 






0050 


002B 


00 




.BYTE 0*0,0,0 


0050 


002C 


00 






0050 


002D 


00 






0050 


002E 


00 






0051 


002F 








0052 


002F 




****** 


MAIN PROGRAM ***** 


0053 


002F 








0054 


002F 




GETKEY 


= *100 


0055 


002F 






* * *200 


0056 


0200 


A9 FF 




LDA #*FF (SET UP PORTS. 



Fig. 7.9: Slot Machine Program 
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0057 


0202 


8D 


03 


AO 




STA 


DDR1A 




0058 


0205 


8D 


02 


AO 




STA 


DDR1B 




005? 


0208 


8D 


02 


AC 




STA 


DDR3B 




0060 


020B 


AD 


04 


AO 




LDA 


T1CL 


(GET SEED FOR RANDOM ♦ GEN. 


0061 


020E 


85 


15 






STA 


RND+1 




0062 


0210 


A9 


08 




START 


LDA 


#8 


( INITIAL SCORE IS EIGHT. 


0063 


0212 


85 


02 






STA 


SCORE 




0064 


0214 


AS 








TAY 




iSHOW INITIAL SCORE 


0065 


0215 


20 


3D 


03 




JSR 


LIGHT 




0066 


0218 


20 


00 


01 


KEY 


JSR 


GETKEY 


(ANY KEY PRESSED STARTS PROGRAM. 


0067 


021B 


20 


27 


02 




JSR 


DISPLY 


( SPIN WHEELS 


0068 


021E 


20 


A7 


02 




JSR 


EVAL 


! CHECK SCORE AND SHOW IT 


0069 


0221 


A5 


02 






LDA 


SCORE 




0070 


0223 


DO 


F3 






BNE 


KEY 


(IF SCORE <> Or GET NEXT PLAY. 


0071 


0225 


FO 


E9 






BEQ 


START 


(IF SCORE - 0. RESTART. 


0072 


0227 
















0073 


0227 








( SUBROUTINE TO DISPLAY 'SPINNING' LEDS r 


0074 


0227 








(FIND COMBINATION TO 


USED TO DElt-KMlrtt bLUKL. 


0075 


0227 
















0076 


0227 








LOLIM 


= 90 




0077 


0227 








HILIM 


= 135 




0078 


0227 








SPDPRM 


= 80 




0079 


0227 


A9 


00 




DISPLY 


LDA 


*0 


(RESET POINTERS. 


0080 


0229 


85 


OB 






STA 


INCR 




0081 


022B 


85 


OC 






STA 


INCR+1 




0082 


022D 


85 


OD 






STA 


INCR+2 




0083 


022F 


AO 


02 




LDRND 


LDY 


♦2 


(SET INDEX FOR 3 ITERATIONS. 


0084 


0231 


20 


80 


03 


GETRND 


JSR 


RANDOM 


(GET RANDOM ♦. 


0085 


0234 


C9 


87 






CMP 


♦HILIM 


(TOO LARGE? 


0086 


0236 


BO 


F9 






BCS 


GETRND 


(IF SO > GET ANOTHER. 


0087 


0238 


C9 


5A 






CMP 


♦LOLIM 


r TUU bMALL r 


0088 


023A 


90 


F5 






BCC 


GETRND 


(IF S0» GET ANOTHER* 


0089 


023C 


99 


08 


00 




STA 


INDXfY 


(SAVE IN LOOP INDEXES AND 


0090 


023F 


99 


05 


00 




STA 


SPEEDS *Y 


(LOOP SPEED COUNTERS. 


0091 


0242 


88 








DEY 






0092 


0243 


10 


EC 






BPL 


GETRND 


(GET NEXT RND ♦. 


0093 


0245 


A2 


02 




UPDATE 


LDX 


♦ 2 


(SET INDEX FOR THREE ITERATIONS. 


0094 


0247 


B4 


05 




UPDTLP 


LDY 


SPEEDSrX 


(IS SPEED(X>=0? 


0095 


0249 


FO 


44 






BEQ 


NXTUPD 


(IF SO* DO NEXT UPDATE. 


0096 


024B 


D6 


08 






DEC 


INDX,X 


(DECREMENT LOOP INDEX(X) 


0097 


02411 


DO 


40 






BNE 


NXTUPD 


(IF LOOPINDEX(X) <> 0. 


0098 


024F 












(DO NEXT 


UPDATE. 


0099 


024F 


B4 


OB 






LDY 


INCR i X 


(INCREMENT POINTER<X). 


0100 


0251 


C8 








INY 






0101 


0252 


CO 


03 






CPY 


♦3 


(POINTER = 3? 


0102 


0254 


DO 


02 






BNE 


NORST 


(IF NOT SKIP. . . 


0103 


0256 


AO 


00 






LDY 


♦0 


(...RESET OF POINTER TO 0. 


0104 


0258 


94 


OB 




NORST 


STY 


INCRfX 


(RESTORE POINTER(X) . 


0105 


025A 


86 


00 






STX 


TEMP 


(MULTIPLY X BY 3 FOR ARRAY ACCESS. 


0106 


025C 


8A 








TXA 






0107 


025D 


OA 








ASL 


A 




0108 


025E 


18 








CLC 






0109 


025F 


65 


00 






ADC 


TEMP 




0110 


0261 


75 


OB 






ADC 


INCR.X 


(ADD COLUMNS TO PTR(X) FOR ROUI+. 


0111 


0263 


A8 








TAY 




iXFER TO Y FOR INDEXING. 


0112 


0264 


B9 


1A 


00 




LDA 


LTABLE,Y 


(GET PATTERN FOR LED. 


0113 


0267 


95 


OE 






STA 


LTMSKfX 


(STORE IN LIGHT MASK(X). 


0114 


0269 


B4 


05 




SPDUPD 


LDY 


SPEEDSfX 


(INCREMENT SPEED(X) . 


0115 


026B 


C8 








INY 






0116 


026C 


94 


05 






STY 


SPEEDS, X 


(RESTORE. 


0117 


026E 


94 


08 






STY 


INDX-X 


(RESET LOOP INDEX(X). 


0118 


0270 


A9 


00 




LEDUPD 


LDA 


to 


(UPDATE LIGHTS. 


0119 


0272 


8D 


00 


AO 




STA 


P0RT1B 


(RESET LED *9 


0120 


0275 


A5 


10 






LDA 


LTMSK+2 


(COMBINE PATTERNS FOR OUTPUT. 


0121 


0277 


DO 


07 






BNE 


0FFLD9 


(IF MASK+3 <> 0, LED 9 OFF. 


0122 


0279 


A9 


01 






LDA 


♦01 


(TURN ON LED 9. 


0123 


027B 


8D 


00 


AO 




STA 


P0RT1B 




0124 


027E 


A9 


00 






LDA 


♦ 


(RESET A SO PATTERN WON'T BE BAD. 


0125 


0280 


05 


OE 




0FFLD9 


ORA 


LTMSK 


(COMBINE REST OF PATTERNS. 


0126 


0282 


05 


OF 






ORA 


LTMSK+1 




0127 


0284 


8D 


01 


AO 




STA 


PORTIA 


(SET LIGHTS. 


0128 


0287 


AD 


00 


AC 




LDA 


P0RT3B 


(TOGGLE SPEAKER. 



Fig. 7.9: Slot Machine Program (Continued) 
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012? 


028A 


49 


FF 






EOR 


#*FF 






0130 


028C 


8B 


00 


AC 




STA 


P0RT3B 






0131 


02BF 


CA 






NXTUPD 


DEX 






(DECREMENT X FOR NEXT UPDATE. 


0132 


0290 


10 


B5 






BPL 


UPDTLP 




(IF X>=Of DO NEXT UPDATE . 


0133 


0292 


AO 


50 






LDY 


♦SPDPRM 




( DELAY A BIT TO SLOW 


0134 


0294 


88 






WAIT 


DEY 






(FLASHING OF LEDS. 


013S 


0295 


DO 


FD 






BNE 


WAIT 






0134 


02?7 


A5 


05 






LDA 


SPEEDS 




( CHECK IF ALL COLUMNS OF 


0137 


0299 










SLEDS STOPPED. 




0138 


0299 


05 


06 






ORA 


SPEEDS+1 






013? 


029B 


05 


07 






□RA 


SPEEDS+2 






0140 


029D 


DO 


A6 






BNE 


UPDATE 




(IF NOTf DO NEXT SEQUENCE 


0141 


029F 












iOF UPDATES. 




0142 


029F 


A9 


FF 






LDA 


#*FF 






0143 


02A1 


85 


03 






STA 


DUR 




(DELAY TO SHOW USER PATTERN. 


0144 


02A3 


20 


30 


03 




JSR 


DELAY 






0145 


02A6 


60 








RTS 






(ALL LEDS STOPPED f DONE. 


0146 


02A7 








r 










0147 


02A7 








(SUBROUTINE TO EVALUATE 


PRODUCT OF SPINr AND 


0148 


02A7 








(DISPLAY SCORE W/ TONES 


FOR WINf LOSEf WIN+ENDGAME f 


0149 


02A7 








(AND LOSE+ENDGAME. 






0150 


02A7 


















0151 


02A7 








HITONE 


- »20 






0152 


02A7 








LOTONE 


= »F0 






0153 


02A7 


A9 


00 




EVAL 


LDA 


*0 




(RESET VARIABLES. 


0154 


02A9 


85 


11 








VALUES 






0155 


02AB 


85 


12 








VALUES+1 






0156 


02AD 


85 


13 






STA 


VALUES+2 






0157 


02AF 


35 


01 






STA 


SCORTP 






0158 


02B1 


AO 


02 






LDY 


*2 




(SET INDEX Y FOR 3 ITERATIONS 


0159 


02B3 














TO 


COUNT * OF LEDS ON IN EACH ROW. 


0160 


02B3 


B6 


OB 




CNTLP 


LDX 


INCRfY 




(CHECK P0INTER(Y)f ADDING 


0161 


02B5 


F6 


11 






INC 


VALUES fX 




(UP * OF LEDS ON IN EACH ROW. 


0162 


02B7 


88 








DEY 








0163 


02B8 


10 


F9 






BPL 


CNTLP 




(LOOP IF NOT DONE . 


0164 


02BA 


A2 


02 






LDX 


*2 SET INDEX 


X FOR 3 ITERATIONS. 


0165 


02BC 












!0F 


LOOP TO FIND SCORE. 


0166 


02BC 


8A 






SLUKLr 


TXA 






(MULTIPLY INDEX BY FOUR FOR ARRAY 


0167 


02BD 












(ROW 


ACCESS. 


0168 


02BD 


OA 








ASL 


A 






0169 


02BE 


OA 








ASL 


A 






0170 


02BF 


18 








CLC 






(ADD * OF LEDS ON IN ROW(X) TO... 


0171 


02C0 


75 


11 






ADC 


VALUES, X 




( * .ARRIVE AT COLUMN ADDRESS IN ARRAY 


0172 


02C2 


A8 








TAY 






(USE AS INDEX 


0173 


02C3 


B9 


23 


00 




LDA 


SCORTBfY 




(GET SCORE FOR THIS SPIN. 


0174 


02C6 


18 








CLC 








0175 


02C7 


65 


01 






ADC 


SCORTP 




( ADD TO ANY PREVIOUS SCORES 


0176 


02C9 












(ACCUMULATED 


IN THIS LOOP. 


0177 


02C9 


85 


01 






STA 


SCORTP 




(RESTORE 


0178 


02CB 


CA 








DEX 








0179 


02CC 


10 


EE 






BPL 


SCORLP 




(LOOP IF NOT DONE 


0180 


02CE 


A9 


60 






LDA 


**60 SET 


UP 


DURATIONS FOR TONES. 


0181 


02D0 


35 


03 






STA 


DUR 






0182 


02D2 


A5 


01 






LDA 


SCORTP 




(GET SCORE FOR THIS SPIN. 


0183 


02D4 


FO 


34 






BEB 


LOSE 




(IF SCORE IS Of LOSE A POINT. 


0184 


02D6 


E6 


02 




WIN 


INC 


SCORE 




(RAISE OVERALL SCORE BY ONE. 


0185 


0208 


A4 


02 






LDY 


SCORE 




( GET SCORE 


0186 


02DA 


CO 


10 






CPY 


#16 




(WIN W/ 16 PTS? 


0187 


02DC 


FO 


10 






BEQ 


WINEND 




(YES ! WIN+ENDGAME . 


0188 


02BE 


20 


3D 


03 




JSR 


LIGHT 




(SHOW SCORE . 


0189 


02E1 


A9 


20 






LDA 


♦HITONE 




(PLAY HIGH BEEP. 


0190 


02E3 


20 


64 


03 




JSR 


TONE 






0191 


02E6 


20 


30 


03 




JSR 


DELAY 




( SHORT DELAY. 


0192 


02E9 


C6 


01 






DEC 


SCORTP 




(DECREMENT SCORE TO BE ADDED TO... 


0193 


02EB 












( OVERALL 


SCORE BY ONE. 


0194 


02EB 


DO 


E9 






BNE 


WIN 




(LOOP IF SCORE XFER NOT COMPLETE. 


0195 


02ED 


60 








RTS 






•DONEf RETURN TO MAIN PROGRAM. 


0196 


02EE 


A9 


FF 




WINEND 


LDA 


**FF 




'TURN ALL LEDS ON TO SIGNAL WIN. 


0197 


02F0 


8D 


01 


AO 




STA 


PORTIA 






0198 


02F3 


8D 


00 


AO 




STA 


P0RT1B 






0199 


02F6 


85 


00 






STA 


TEMP 




SET FREQ PARM FOR RISING WARBLE. 


0200 


02F8 


A9 


00 






LDA 


#0 






0201 


02FA 


85 


02 






STA 


SCORE 




CLEAR TO FLAG RESTART. 



Fig. 7.9: Slot Machine Program (Continued) 
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0202 


02FC 


A9 


04 






LDA 


*4 




0203 


02FE 


85 


03 






STA 


DUR 


(SHORT DURATION FOR INDIVIDUAL 


0204 


0300 












( BEEPS 


IN WARBLE . 


0205 


0300 


A5 


00 




RISE 


LDA 


TEMP 


( GET FREQUENCY. . . . 


0206 


0302 


20 


64 


03 




JSR 


TONE 


( . . . .FOR BEEP. 


0207 


0305 


CA 


00 






DEC 


TEMP 


(NEXT BEEP WILL BE HIGHER. 


0208 


0307 


DO 


F7 






BNE 


RISE 


(DO NEXT BEEP IF NOT DONE. 


020? 


0309 


60 








RTS 




(RETURN FOR RESTART . 


0210 


030A 


C6 


02 




LOSE 


DEC 


SCORE 


(IF SPIN BADi SC0RE=SC0RE-1 


0211 


O30C 


A4 


02 






LDY 


SCORE 


(SHOW SCORE 


0212 


030E 


20 


3D 


03 




JSR 


LIGHT 




0213 


0311 


A? 


FO 






LDA 


♦LOTONE 


(PLAY LOW LOSE TONE. 


0214 


0313 


20 


64 


03 




JSR 


TONE 




0215 


0316 


A4 


02 






LDY 


SCORE 


(GET SCORE TO SEE .... 


0216 


0318 


FO 


01 






BEG 


LOSEND 


(IF GAME IS OVER . 


0217 


031A 


60 








RTS 




(IF NOT> RETURN FOR NEXT SPIN. 


0218 


031B 


A? 


00 




LOSEND 


LDA 


#0 


(SET TEMP FOR USE AS FREQ FARM 


0219 


031D 


85 


00 






STA 


TEMP 


(IN FALLING WARBLE. 


0220 


031F 


8D 


01 


AO 




STA 


PORTIA 


(CLEAR LED #1. 


0221 


0322 


A9 


04 






LDA 


*4 




0222 


0324 


85 


03 






STA 


DUR 




0223 


0326 


A5 


00 




FALL 


LDA 


TEMP 




0224 


0328 


20 


64 


03 




JSR 


TONE 


(PLAY BEEP. 


0225 


032B 


E6 


00 






INC 


TEMP 


(NEXT TONE WILL BE LOWER. 


0226 


032D 


DO 


F7 






BNE 


FALL 




0227 


032F 


60 








RTS 




(RETURN FOR RESTART . 


0228 


0330 
















0229 


0330 








(VARIABLE LENGTH DELAY 


SUBROUTINE. 


0230 


0330 








( DELAY 


LENGTH = <2046*CCONTENTS OF DURD+10) US. 


0231 


0330 
















0232 


0330 


A4 


03 




DELAY 


LDY 


DUR 


( GET DELAY LENGTH. 


0233 


0332 


A2 


FF 




DL1 


LDX 


#*FF 


(SET CNTR FOR INNER 2040 US. LOOP 


0234 


0334 


DO 


00 




DL2 


BNE 


*+2 


(WASTE TIME. 


0235 


0336 


CA 








BEX 




( DECREMENT INNER LOOP CNTR. 


0236 


0337 


DO 


FB 






BNE 


DL2 


(LOOP 'TILL INNER LOOP DONE. 


0237 


0339 


88 








DEY 




(DECREMENT OUTER LOOP CNTR. 


0238 


033A 


DO 


F6 






BNE 


DL1 


(LOOP 'TILL DONE. 


0239 


033C 


60 








RTS 




(RETURN. 


0240 


033D 
















0241 


033D 








(SUBROUNTINE TO LIGHT 


LED CORRESPONDING 


0242 


033D 








(TO THE CONTENTS OF REGISTER Y ON ENTERING. 


0243 


033D 
















0244 


033D 


A9 


00 




LIGHT 


LDA 


to 


(CLEAR REG. A FOR BIT SHIFT. 


0245 


033F 


85 


00 






STA 


TEMP 


(CLEAR OVERFLOW FLAG. 


0246 


0341 


8D 


01 


AO 




STA 


PORTIA 


(CLEAR LOW LEDS. 




0344 


8D 


00 


AO 




STA 


PORT IB 


(CLEAR HIGH LEDS. 


0248 


0347 


CO 


OF 






CPY 


#15 


(CODE FOR UNCONNECTED BIT? 


0249 


0349 


FO 


01 






BEQ 


*+3 


(IF SO, NO CHNG. 


0250 


034B 


88 








BEY 




(DECREMENT TO MATCH. 


0251 


034C 


38 








SEC 




(SET BIT TO BE SHIFTED HIGH. 


0252 


034D 


2A 






LTSHFT 


ROL 


A 


(SHIFT BIT LEFT. 


0253 


034E 


90 


05 






BCC 


LTCC 


(IF CARRY SET, OVERFLOW HAS 


0254 


0350 












J OCCURRED INTO HIGH BYTE. 


0255 


0350 


A2 


FF 






LDX 


**FF 


(SET OVERFLOW FLAG . 


0256 


0352 


86 


00 






STX 


TEMP 




0257 


0354 


2A 








ROL 


A 


(MOVE BIT OUT OF CARRY. 


0258 


0355 


88 






LTCC 


DEY 




(ONE LESS BIT TO BE SHIFTED. 


0259 


0356 


10 


F5 






BPL 


LTSHFT 


(SHIFT AGAIN IF NOT DONE. 


0260 


0358 


A6 


00 






LDX 


TEMP 


(GET OVERFLOW FLAG. 


0261 


035A 


DO 


04 






BNE 


HIBYTE 


(IF FLAGOO, OVERFLOW! A CONTAINS 


0262 


035C 












(HIGH BYTE. 


0263 


035C 


8D 


01 


AO 


LOBYTE 


STA 


PORTIA 


( STORE A IN LOW ORDER LEDS. 


0264 


035F 


60 








RTS 




(RETURN. 


0265 


0360 


8D 


00 


AO 


HIBYTE 


STA 


PORT IB 


(STORE A IN HIGH ORDER LEDS. 


0266 


0363 


60 








RTS 




(RETURN. 


0267 


0364 
















0268 


0364 








(TONE GENERATION SUBROUTINE. 


0269 


0364 
















0270 


0364 


85 


04 




TONE 


STA 


FREQ 




0271 


0366 


A9 


FF 






LDA 


**FF 




0272 


0368 


8D 


00 


AC 




STA 


P0RT3B 




0273 


036B 


A9 


00 






LDA 


♦00 





Fig. 7.9: Slot Machine Program (Continued) 
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0274 


036D 


A6 


03 


LDX DUR 


0275 


036F 


A4 


04 


FL2 LDY FREQ 


0276 


0371 


88 




FL1 DEY 


0277 


0372 


18 




CLC 


027B 


0373 


90 


00 


BCC *+2 


0279 


0375 


DO 


FA 


BNE FL1 


0280 


0377 


49 


FF 


EOR #$FF 


02S1 


0379 


8D 


00 AC 


STA P0RT3B 


0282 


037C 


CA 




DEX 


0283 


037D 


DO 


FO 


BNE FL2 


0284 


037F 


60 




RTS 


0285 


0380 






; 


0286 


0380 






J RANDOM NUMBER GENERATOR 


0287 


0380 








0288 


0380 


38 




RANDOM SEC 


0289 


0381 


A5 


15 


LDA RND+1 


0290 


0383 


65 


18 


ADC RNB+4 


0291 


0385 


65 


19 


ADC RND+5 


0292 


0387 


85 


14 


STA RND 


0293 


0389 


A2 


04 


LDX #4 


0294 


038B 


B5 


14 


RNDSH LDA RND r X 


0295 


038D 


95 


15 


STA RND+1, X 


0296 


038F 


CA 




DEX 


0297 


0390 


10 


F9 


BPL RNDSH 


0298 


0392 


60 




RTS 


0299 


0393 






.END 



SYMBOL TABLE 



SYMBOL VALUE 



CNTLP 
DELAY 
DUR 
FL2 

HIBYTE 

INDX 

LIGHT 

LOSEND 

LTMSK 

0FFLD9 

RANDOM 

SCORE 

SPDPRM 

T1CL 

UPDTLP 

UINEND 

END OF 



02B3 
0330 
0003 
036F 
0360 
0008 
033D 
031B 
OOOE 
0280 
0380 
0002 
0050 
A004 
0247 
02EE 
ASSEMBLY 



DDR1A 


A003 


DDR1B 


A002 


DDR3B 


AC02 


DISPLY 


0227 


DL1 


0332 


DL2 


0334 


EVAL 


02A7 


FALL 


0326 


FL1 


0371 


FREO 


0004 


GETKEY 


0100 


GETRND 


0231 


HILIM 


0087 


HITONE 


0020 


INCR 


OOOB 


KEY 


0218 


LDRND 


022F 


LEDUPD 


0270 


LOBYTE 


035C 


LOLIM 


005A 


LOSE 


030A 


LOTONE 


OOFO 


LTABLE 


001A 


LTCC 


0355 


LTSHFT 


034D 


NORST 


0258 


NXTUPD 


028F 


PORTIA 


A001 


P0RT1B 


AOOO 


P0RT3B 


ACOO 


RISE 


0300 


RND 


0014 


RNDSH 


038B 


SCORLP 


02BC 


SCORTB 


0023 


SCORTP 


0001 


SPDUPD 


0269 


SPEEDS 


0005 


START 


0210 


TEMP 


0000 


TONE 


0364 


UPDATE 


0245 


VALUES 


0011 


WAIT 


0294 


WIN 


02D6 



- Fig. 7.9: Slot Machine Program (Continued) - 



SCORTP is used as a temporary storage for the score gained or 
lost on each spin 

— SCORE is the game score 

— DUR and FREQ specify the usual constants for tone generation 

— SPEEDS (3 locations) specify the revolution speeds for the three 
columns 

— INDX (3 locations): delay counters for LED revolutions 

— INCR (3 locations): pointers to the LED positions in each column 
used to fetch patterns out of tables 

— LTMSK (3 locations): patterns indicating lit LEDs 

— VALUES (3 locations): number of LEDs lit in each column 

— RND (6 locations): scratch-pad for random number generator. 
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Program Implementation 

The program consists of a main program and two main subroutines: 
DISPLY and EVAL. It also contains some utility subroutines: DELAY 
for a variable length delay, LIGHT to light the appropriate LED, 
TONE to generate a tone, and RANDOM to generate a random 
number. 

The main program is stored at memory locations 200 and up. As 
usual, the three data-direction registers for Ports A and B of VIA#1 
and for Port B of VIA#3 must be conditioned as outputs: 

LDA #$FF 
STA DDR1A 
STA DDR1B 
STA DDR3B 

As in previous chapters, the counter register of timer 1 is used to pro- 
vide an initial random number (a seed for the random number generator). 
This seed is stored at memory location RND + 1 , where it will be used 
later by the random number generation subroutine: 

LDA T1CL 
STA RND + 1 

On starting a new game, the initial score is set to 8. It is established: 

START LDA #8 

STA SCORE 

and displayed: 

TAY Y must contain it 

JSR LIGHT 

The LIGHT subroutine is used to display the score by lighting up the 
LED corresponding to the contents of register Y. It will be described 
later. 

The slot machine program is now ready to respond to the player. 
Any key may be pressed: 

KEY JSR GETKEY 
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As soon as a key has been pressed, the wheels must be spun: 
JSR DISPLY 

Once the wheels have stopped, the score must be evaluated and 
displayed with the accompanying sound: 

JSR EVAL 

If the final score is not "0," the process is restarted: 

LDA SCORE 
BNE KEY 

and the user may spin the wheels again. Otherwise, if the score was 
"0," a new game is started: 

BEQ START 

This completes the body of the main program. It is quite simple 
because it has been structured with subroutines. 

The Subroutines 

The algorithms corresponding to the two main subroutines DISPLY 
and EVAL have been described in the previous section. Let us now 
consider their program implementation. 

DISPLY Subroutine 

Three essential subroutine parameters are LOLIM, HILIM, and 
SPDPRM. For example, lowering LOLIM will result in a longer spin- 
ning time for the LEDs. Various other effects can be obtained by vary- 
ing these three parameters. One might be to include a win almost every 
time! Here LOLIM = 90, HILIM = 134, SPDPRM = 80. 

Memory location INCR is used as a pointer to the current LED 
position. It will be used later to fetch the appropriate bit pattern from 
the table, and may have the value 0, 1 , or 2 (pointing to LED positions 
1, 2, or 3). The three pointers for the LEDs in each column are stored 
respectively at memory locations INCR, INCR + 1, and INCR + 2. 
They are initialized to 0: 
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DISPLY 



LDA #0 
STA INCR 
STA INCR + 1 
STA INCR + 2 



Note that in the previous examples (such as Figure 7.7), in order to 
simplify the explanations, we have used pointers X and Y to repre- 
sent the values between 1 and 3. Here, X and Y will have values rang- 
ing between and 2 to facilitate indexing. The wheel pointer is set to 
the right-most wheel: 

LDRND LDY #2 

An initial random number is obtained with the RANDOM subroutine: 

GETRND JSR RANDOM 

The number returned by the subroutine is compared with the accep- 
table low limit and the acceptable high limit. If it does not fit within 
the specified interval, it is rejected, and a new number is obtained until 
one is found which fits the required interval. 



The valid random number is then stored in the index location INDX 
and in the SPEEDS location for the current column. (See Figure 7.10.) 



The same process is carried out for column 1 and column 0: 



Once all three columns have obtained their index and speed, a new 
iteration loop is started, using register X as a wheel counter: 



CMP #HILIM 
BCS GETRND 
CMP #LOLIM 
BCC GETRND 



Too large? 

If so, get another 

Too small? 

If so, get another 



STA INDX.Y 
STA SPEEDS,Y 



DEY 

BPL GETRND 



Get next random # 
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SPEEDS 



INDX 



INCR 



V 

X 





i 


2 





r\ 
U 


Vj 




1 






U 


2 


o 


o 


O 



RANDOM 



RANDOM 



RANDOM 



* * J 



Fig. 7. 10: Spinning the Wheels 

UPDATE LDX #2 Set counter for 3 iterations 

The speed is tested for the value 0: 

UPDTLP LDY SPEEDS.X Is speed (X) = 0? 

BEQ NXTUPD If so, update next column 

As long as the speed is not 0, the next LED in that column will have to 
be lit. The delay count is decremented: 



DEC INDX.X Decrement loop, index (X) 
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If the delay has not decremented to 0, a branch occurs to NXTUPD 
which will be described below. Otherwise, if the delay counter INDX 
is decremented to 0, the next LED should be lit. The LED pointer is 
incremented with a possible wrap-around if it reaches the value 3: 



NORST 



BNE NXTUPD 

LDY INCR.X 
INY 
CPY #3 
BNE NORST 
LDY #0 
STY INCR.X 



If loop index(X) <> 0, do 
next update 
Inc pointer 

Pointer = 3? 
If not, skip 
Reset to 
Restore pointer (X) 



The new value of the LED pointer is stored back into INCR for the 
appropriate column. (Remember that within the UPDATE routine, X 
points at the column.) In order to light the appropriate LED, a bit pat- 
tern must be obtained from LTABLE. Note that LTABLE (and also 
SCORTB) is treated conceptually, as if it was a two-dimensional array, 
i.e., having rows and columns. However, both LTABLE and 
SCORTB appear in memory as a contiguous series of numbers. Thus, 
in order to obtain the address of a particular element, the row number 
must be multiplied by the number of columns and then added to the 
column number. 

The table will be accessed using the indexed addressing mode, with 
register Y used as the index register. In order to access the table, X 
must first be multiplied by 3, then the value of INCR (i.e., the LED 
pointer) must be added to it. 

Multiplication by 3 is accomplished through a left shift followed by 
an addition, since a left shift is equivalent to multiplication by 2: 

STX TEMP Multiply X by 3 

TXA 

ASL A Left shift 

CLC 

ADC TEMP Plus one 



The value of INCR is added, and the total is transferred into register Y 
so that indexed addressing may be used. Finally, the entry may be 
retrieved from LTABLE: 
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ADC INCR.X 
TAY 

LDA LTABLE.Y Get pattern for LED 

Once the pattern has been obtained, it is stored in one of three 
memory locations at address LTMSK and following. The pattern is 
stored at the memory location corresponding to the column currently 
being updated, where the LED has "moved." The lights will be turned 
on only after the complete pattern for all three columns has been im- 
plemented. As a result of the LED having moved one position within 
that column, the speed constant must be incremented: 

STA LTMSK.X 
SPDUPD LDY SPEEDS.X 
INY 

STY SPEEDS.X 
The index is set so that it is equal to the new speed: 

STY INDX.X 

Note that special handling will now be necessary for LED #9. The 
pattern to be displayed on the first eight LEDs was stored in the 
LTABLE. The fact that LED #9 must be lit is easily recognized by the 
fact that the pattern for column #3 shows all zeroes; since one LED 
must be lit at all times within that column, it implies that LED #9 will 
be lit: 

LEDUPD LDA #0 

STA PORT1B Reset LED 9 

Next, the pattern for the third column is obtained from the location 
where it had been saved at LTMSK + 2. It is tested for the value of 0: 

LDA LTMSK + 2 
BNE OFFLD9 

If this pattern is 0, then LED #9 must be turned on: 

LDA #01 
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STA PORT1B 

Otherwise, a branch occurs to location OFFLD9, and the remaining 
LEDs will be turned on. The pattern contained in the accumulator 
which was obtained from LTMSK + 2, is successively OR'ed with the 
patterns for the second and first columns: 

LDA #0 
OFFLD9 ORA LTMSK 

ORA LTMSK + 1 

At this point, A contains the final pattern which must be sent out in 
the output port to turn on the required LED pattern. This is exactly 
what happens: 

STA PORTIA 

At the same time, the speaker is toggled: 

LDA PORT3B 
EOR #$FF 
STA PORT3B 

It is important to understand that even though only the LED for one 
of the three columns has been moved, it is necessary to simultaneously 
turn on LEDs in all of the columns or the first and second columns 
would go blank! 

Once the third column has been taken care of, the next one must be 
examined. The column pointer X is therefore decremented, and the 
process is continued: 

NDTUPD DEX 

BPL UPDTLP If X >= do next update 

Once the second and the first columns have been handled, a delay is 
implemented to avoid flashing the LEDs too fast. This delay is con- 
trolled by the speed parameter SPDPRM: 

LDY #SPDPRM 
WAIT DEY 

BNE WAIT 
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Y = o 



VALUES 



INCR 



• 




• 

r 

• 









1 




Fig. 7. 1 1 : Evaluating the End of A Spin 

Once this complete cycle has been executed, the speed location for 
each column is checked for the value 0. If all columns are 0, the spin is 
finished: 

LDA SPEEDS 
ORA SPEEDS + 1 
ORA SPEEDS + 2 
BNE UPDATE 

Otherwise, a branch occurs at the location UPDATE. If all LEDs 
have stopped, a pause must be generated so that the user may see the 
pattern: 

LDA #$FF 
STA DUR 
JSR DELAY 

and exit occurs: 



RTS 



125 



ADVANCED 6502 PROGRAMMING 

Exercise 7-2: Note that the contents of the three SPEEDS locations 
have been OR'ed to test for three zeroes. Would it have been equivalent 
to add them together? 

EVAL Subroutine 

This subroutine is the user output interface. It computes the score 
achieved by the player and generates the visual and audio effects. The 
constants for frequencies for the high tone generated by a win situation 
and the low tone generated by a lose situation are specified at the 
beginning of this subroutine: 

HITONE = $20 
LOTONE = $F0 

The method used to compute the number of LEDs lit per row has been 
discussed and shown in Figure 7.7. The number of LEDs lit for each 
row is initially reset to 0: 

EVAL LDA #0 

STA VALUES 
STA VALUES + 1 
STA VALUES + 2 

The temporary score is also set to 0: 
STA SCORTP 

Index register Y will be used as a column pointer, and the number of 
LEDs lit in each row will be computed. The number of the LED lit for 
the current column is obtained by reading the appropriate INCR en- 
try. See the example in Figure 7.11. The value contained in each of the 
three locations reserved for INCR is a row number. This row number 
is stored in register X, and is used as an index to increment the ap- 
propriate value in the VALUES table. Notice how this is accomplished 
in just two instructions, by cleverly using the indexed addressing feature 
of the 6502 twice: 

. CNTLP LDY #2 3 iterations 

LDX INCR.Y 
INC VALUES.X 
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Once this is done for column 2, the process is repeated for columns 1 
and 0: 

DEY 

BPL CNTLP 

Now, another iteration will be performed to convert the final numbers 
entered in the VALUES table into the actual scores as per the 
specifications of the score table, SCORTB. Index register X is used as 
a row-pointer for VALUES and SCORTB. 

LDX #2 

Since the SCORTB table has four one-byte entries per row level, in 
order to access the correct byte within the table the row number must 
first be multiplied by 4, then the corresponding "value" (number of 
LEDs lit) for that row must be added to it. This provides the correct 
displacement. The multiplication by 4 is implemented by two suc- 
cessive left shifts: 

SCORLP TXA 
ASL A 
ASL A 

The number presently contained in the accumulator is equal to 4 times 
the value contained in X, i.e., 4 times the value of the row-pointer. To 
obtain the final offset within the SCORTB table, we must add to that 
the number of LEDs lit for that row, i.e., the number contained in the 
VALUES tables. This number is retrieved, as usual, by performing an 
indexed addressing operation: 

CLC 

ADC VALUES, X Column address in array 

This results in the correct final offset for accessing SCORTB. 

The indexed access of the SCORTB table can now be performed. 
Index register Y is used for that purpose, and the contents of the ac- 
cumulator are transferred to it: 

TAY 
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The access is performed: 

LDA SCORTB.Y Get score for this spin 

The correct score for the number of LEDs lit within the row pointed to 
by index register X is now contained in the accumulator. The partial 
score obtained for the current row is added to the running total for all 
rows: 

CLC 

ADC SCORTP Total the scores 
STA SCORTP Save 

The row number is then decremented so that the next row can be ex- 
amined. If X decrements from the value 0, i.e., becomes negative, we 
are done; otherwise, we loop: 

DEX 

BPL SCORLP 

At this point, a total score has been obtained for the current spin. 
Either a win or a lose must be signaled to the player, both visually and 
audibly. In anticipation of activating the speaker, the memory loca- 
tion DUR is set to the correct tone duration: 

LDA #$60 
STA DUR 

The score is then examined: if 0, a branch occurs to the LOSE routine: 

LDA SCORTP 
BEQ LOSE 

Otherwise, it is a win. Let us examine these two routines. 
WIN Routine 

The final score for the user (for all spins so far) is contained in 
memory location SCORE. This memory location will be incremented 
one point at a time and checked every time against the maximum value 
16. Let us do it: 



128 



REAL TIME SIMULATION 



WIN INC SCORE 

LDY SCORE 
CPY #16 

If the maximum value of 16 has been reached, it is the end of the game 
and a branch occurs to location WINEND: 

BEQ WINEND 

Otherwise, the score display must be updated and a beep must be 
sounded: 

JSR LIGHT 

The LIGHT routine will be described below. It displays the score to 
the player. Next, a beep must be sounded. 

LDA #HITONE 
JSR TONE 

The TONE routine will be described later. 
A delay is then implemented: 

JSR DELAY 
then the score for that spin is decremented: 

DEC SCORTP 

and checked against the value 0. If it is 0, the scoring operation is com- 
plete; otherwise, the loop is reentered: 

BNE WIN 
RTS 

WINEND Routine 

This routine is entered whenever a total score of 16 has been 
reached. It is the end of the game. All LEDs are turned on 
simultaneously, and a siren sound with rising frequencies is activated. 
Finally, a restart of the game occurs. 
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All LEDs are turned on by loading the appropriate pattern into Port 
1A and Port IB: 

LDA #$FF 

STA PORTIA Turn on all LEDs 
STA PORT1B 

Variables are reinitialized: the total score becomes 0, which signals to 
the main program that a new game must be started, the DUR memory 
location is set to 4 to control the duration of time for which the beeps 
will be sounded, and the frequency parameter is set to "FF" at loca- 
tion TEMP: 

STA TEMP Freq. parameter 

LDA #0 

STA SCORE Clear for restart 

LDA #4 

STA DUR Beep duration 

The TONE subroutine is used to generate a beep: 

RISE LDA TEMP Get frequency 

JSR TONE Generate beep 

The beep frequency constant is then decremented, and the next beep is 
sounded at a slightly higher pitch: 

DEC TEMP 
BNE RISE 

Whenever the frequency constant has been decremented to 0, the siren 
is complete and the routine exits: 

RTS 

LOSE Routine 

Now let us examine what happens in the case of a lose situation. The 
events are essentially symmetrical to those that have been described 
for the win. 

In the case of a loss, the score needs to be updated only once. It is 
decremented by 1: 
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LOSE DEC SCORE 

The lowered score is displayed to the user: 

LDY SCORE 
JSR LIGHT 

An audible tone is generated: 

LDA #LOTONE 
JSR TONE 

The final value of the score is checked to see whether a "0" score has 
been reached. If so, the game is over; otherwise, the next spin is 
started: 

LDY SCORE 
BEQ LOSEND 
RTS 

Let us look at what happens when a "0" score is reached (LOSEND). 
A siren of decreasing frequencies will be generated. All LEDs will go 
blank on the board: 

LOSEND LDA #0 

STA TEMP 

STA PORTIA Clear LED #1 

The beep duration for each frequency is set to a value of 4, stored at 
memory location DUR: 

LDA #4 
STA DUR 

The beep for the correct frequency is then generated: 

FALL LDA TEMP 

JSR TONE Play beep 

Next, the frequency constant is increased by 1, and the process is 
restarted until the TMP register overflows. 
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INC TEMP 
BNE FALL 
RTS 



Next tone will be lower 



This completes our description of the main program. Let us now ex- 
amine the four subroutines that are used. They are: DELAY, LIGHT, 
TONE, and RANDOM. 

DELAY Subroutine 

This subroutine implements a delay; the duration of the delay is set 
by the contents of memory location DUR. The resulting delay length 
will be equal to (2046 x DUR + 10) microseconds. The delay is im- 
plemented using a traditional two-level, nested loop structure. The 
inner-loop delay is controlled by index register X, while the outer-loop 
delay is controlled by index register Y, which is initialized from the 
contents of memory location DUR. Y is therefore initialized: 

DELAY LDY DUR 

The inner loop delay is then implemented: 

DL1 LDX #$FF 

DL2 BNE * + 2 Waste time 



Exercise 7-3: Verify the exact duration of the delay implemented by 
the DELA Y subroutine. 

LIGHT Subroutine 

This subroutine lights the LED corresponding to the number con- 
tained in register Y. Remember that the fifteen LEDs on the Games 



DEX 
BNE DL2 



Inner loop counter 
Inner loop 



And, finally, the outer loop is implemented: 



DEY 

BNE DL1 
RTS 
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Board are numbered externally from 1 to 15 but are connected to bits 
to 7 of Port 1A and to 7 of Port IB. Thus, if a score of 1 must be 
displayed, bit of Port 1A must be turned on. Generally, bit N of Port 
1A must be turned on when N is equal to the score minus one. However, 
there is one exception. To see this, refer to Figure 1.4 showing the 
LED connections. Notice that bit 6 of Port IB is not connected to any 
LEDs. Whenever a score of fifteen must be displayed, bit 7 of Port IB 
must be turned on. This exception will be handled in the routine by 
simply not decrementing the score when it adds up to fifteen. 

The correct pattern for lighting the appropriate LED will be created 
by shifting a "1" into the accumulator at the correct position. Other 
methods will be suggested in the exercise below. Let us first initialize: 

LIGHT LDA #0 

STA TEMP 
STA PORTIA 
STA PORT IB 

We must first look at the situation where the score contained in Y is 
15 and where we do nothing (no shift): 

CPY #15 Code for uncorrected bit? 

BEQ * + 3 If so, no change 

For any other score, it is first decremented, then the shift is per- 
formed: 

DEY Decrement to internal code 

SEC Set bit to be shifted 

LTSHFT ROL A 

The contents of the accumulator were zeroed in the first instruc- 
tion of this subroutine. The carry is set to the value 1 , then shifted into 
the right-most position of A. (See Figure 7.12.) This process will be 
repeated as many times as necessary. Since we must count from 1 to 
14, or to 13, an overflow will occur whenever the "1" that is rotated 
in the accumulator "falls off" the left end. As long as this does not 
happen, the shifting process continues, and a branch to location 
LTCC is implemented: 

BCC LTCC 
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Fig. 7.12: Creating the LED Pattern 

However, if the "1" bit does fall off the left end of the accumulator, 
the value "FF" is loaded at memory location TEMP to signal this oc- 
currence. Remember that the value was cleared in the second instruc- 
tion of the LIGHT subroutine. 

LDX #$FF 
STX TEMP 



The "1" bit is then moved from the carry into the right-most position 
of the accumulator. Later, the value contained in memory location 
TEMP will be checked, and this will determine whether the pattern 
contained in the accumulator is to be sent to Port 1 A or to Port IB. 
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The shifting process continues. The counter is decremented, and, if 
it reaches the value "0," we are done; otherwise, the process is 
repeated: 

ROL A 
LTCC DEY 

BPL LTSHFT 

Once the process is completed, the value of memory location TEMP is 
examined. If this value is "0," it indicates that no overflow has oc- 
curred and Port 1A must be used. If this value is not "0," i.e., it is 
"FF," then Port IB must be used: 

LDX TEMP Get overflow flag 

BNE HIBYTE 
LOBYTE STA PORTIA A sent to low LEDs 

RTS Return 
HIBYTE STA PORT IB A sent to high LEDs 

RTS 

TONE Subroutine 

This subroutine generates a beep. The frequency of the beep is 
determined by the contents of the accumulator on entry; the duration 
of the beep is set by the contents of the memory location DUR. This 
has already been described in Chapter 2. 

RANDOM Subroutine 

This is a simple random number generator. The subroutine has 
already been described in Chapter 3. 

Exercise 7-4: Suggest another way to generate the correct LED pattern 
in the accumulator, without using a sequence of rotations. 

Game Variations 

The three rows of LEDs supplied on the Games Board may be inter- 
preted in a way that is different from the one used at the beginning of 
this chapter. Row 1 could be interpreted as, say, cherries. Row 2 could 
be interpreted as stars, and row 3 could be interpreted as oranges. 
Thus, an LED lit in row 1 at the end of a spin shows a cherry, while 
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two LEDs in row 3 show two oranges. The resulting combination is 
one cherry and two oranges. The scoring table used in this program 
can be altered to score a different number of points for each combina- 
tion, depending upon the number of cherries, oranges, or stars present 
at the end of the spin. It becomes simply a matter of modifying the 
values entered into the scoring table. When new values are entered in- 
to the scoring table a completely different scoring result will be im- 
plemented. No other alterations to the program will be needed. 

SUMMARY 

This program, although simple in appearance, is relatively complex 
and can lead to many different games, depending upon the evaluation 
formula used once the lights stop. For clarity, it has been organized into 
separate routines that can be studied individually. 
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INTRODUCTION 

A stack technique is used to accumulate information. It is compared 
to the use of scratch locations. 

THE RULES 

The object of this game is to recognize and duplicate a sequence of 
lights and sounds which are generated by the computer. Several varia- 
tions of this game, such as "Simon" and "Follow Me" (manufacturer 
trademarks*), are sold by toy manufacturers. In this version, the player 
must specify, before starting the game, the length of the sequence to be 
recognized. The player indicates his or her length preference by press- 
ing the appropriate key between 1 and 9. At this point the computer 
generates a random sequence of the desired length. It may then be 
heard and seen by pressing any of the alphabetic keys (A through F). 

When one of the alphabetic keys is pressed, the sequence generated 
by the program is displayed on the corresponding LEDs (labeled 1 
through 9) on the Games Board, while it is simultaneously played 
through the loudspeaker as a sequence of notes. While this is happen- 
ing, the player should pay close attention to the sounds and/or lights, 
and then enter the sequence of numbers corresponding to the sequence 
he or she has identified. Every time that the player presses a correct 
key, the corresponding LED on the Games Board lights up, indicating 
a success. Every time a mistake is made, a low-pitched tone is heard. 

At the end of the game, if the player has guessed successfully, all 
LEDs on the board will light up and a rising scale (succession of notes) 
is played. If the player has failed to guess correctly, a single LED will 
light up on the Games Board indicating the number of errors made, 
and a descending scale will be played. 

If the player guessed the series correctly, the game will be restarted. 
Otherwise, the number of errors will be cleared and the player will be 
given another chance to guess the series. 



♦"Follow Me" is a trademark of Atari, Inc., "Simon" is a trademark of Milton Bradley Co. 
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At any time during a game, the player may press one of the 
alphabetic keys that will allow him or her to hear the sequence again. 
All previous guesses are then erased, and the player starts guessing 
again from the beginning. 

Two LEDs on the bottom row of the LED matrix are used to com- 
municate with the player: 

LED 10 (the left-most LED) indicates "computer ready — enter the 
length of the sequence desired." 

LED 11 lights up immediately after the player has specified the 
length of the sequence. It will remain lit throughout the game and it 
means that you should "enter your guess." 

At this point, the player has three options: 

1 . To press a key corresponding to the number in the sequence that 
he or she is attempting to recognize. 

2. To press key 0. This will result in restarting the game. 

3. To press keys A through F. This will cause the computer to play 
the sequence again, and will restart the guessing sequence. 

Variations 

The program provides a good test for your musical abilities. It is 
suggested that you start each new game by just listening to the se- 
quence as it is played on the loudspeaker, without looking at the LEDs. 
This is because the LEDs on the Games Board are numbered, and it is 
fairly easy to remember the light sequence simply by memorizing the 
numbers. This would be too simple. The way you should play it is to 
start with a one-note sequence. If you are successful, continue with a 
two-note sequence, and then with a three-note sequence. Match your 
skills with other players. The player able to recognize the longest se- 
quence is the winner. Note that some players are capable of recogniz- 
ing a nine-note sequence fairly easily. 

After a certain number of notes are played (e.g., when more than 
five notes are played), in order to facilitate the guessing you may 
allow the player to look at the LEDs on the Games Board. Another 
approach might be to allow the player to press one of the alphabetic keys 
at any time in order to listen to the sequence again. However, you may 
want to require that the player pay a penalty for doing this. This could 
be achieved by requiring that the player recognize a second sequence 
of the same length before trying a longer one. This means that if, for 
example, a player attempts to recognize a five-note sequence but 
becomes nervous after making a mistake and forgets the sequence, 
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that player will be allowed to press one of the alphabetic keys and hear 
the sequence again. However, if the player is successful on the second 
attempt, he or she must then recognize another five-note sequence 
before proceeding to a six-note one. 

You can be even tougher and specify that any player is allowed a 
replay of the stored pattern a maximum of two, three, or five times 
per game. In other words, throughout the games a player may replay 
the sequence he or she is attempting to guess by pressing one of the 
alphabetic keys, but this resource may be used no more than n times. 

An ESP Tester 

Another variation of this game is to attempt to recognize the se- 
quence without listening to it or seeing it! Clearly, in such a case you 
can rely only on your ESP (Extra Sensory Perception) powers to 
facilitate guessing. In order to determine whether you have ESP or 
not, set the length of the initial sequence to "1." Then, hit the key in 
an attempt to guess the note selected by the program. Try this a 
number of times. If you do not have ESP your results should be ran- 
dom. Statistically, you should win one out of nine times which is only 
one-ninth of the time, or 11.11% of the time. Note that this percent- 
age is valid only for a large number of guesses. 

If you win more than 11% of the time, you may have ESP! If your 
score is higher than 50%, you should definitely run for political office 
or immediately apply for a top management position in business. If 
your score is less than 11%, you have "negative ESP" and you should 
consider looking both ways before crossing the street. 

The following is an exercise for readers who have a background in 
statistics. 

Exercise 8-1: Compute the statistical probability of guessing a correct 
two-number sequence, and a correct four-number sequence. 

A TYPICAL GAME 

The program starts at location 200. As usual, LED 10 lights up as 
shown in Figure 8.1 . We specify a series of length two by pushing key 
"2" on the keyboard. The LED display as it appears in Figure 8.2, 
means "enter your guess." 

We want to hear the tunes so we push key "F." In response, LEDs 5 
and 2 light up briefly on the Games Board and corresponding tones 
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Fig. 8.3: Follow Me 

are heard through the speaker. This is illustrated in Figure 8.3. We 
must now enter the sequence we have recognized. We push "5" on the 
keyboard. In response, LED 11 goes blank and LED 5 lights up briefly. 
Simultaneously, the corresponding note is played through the speaker. 
It is a successful guess! 

Next, we press key "2." LED 2 lights up, and the speaker produces 
the matching tone indicating that our second guess has also been suc- 
cessful. A moment later, all LEDs on the board light up to con- 
gratulate us and the rising scale is sounded. It is a sequence of notes of 
increasing frequencies meant to confirm that we have guessed suc- 
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cessfully. The game is then restarted, and LED 10 lights up, as shown 
in Figure 8.1. 

Let us now follow a losing sequence: LED 10 is lit at the beginning 
of the game, as in Figure 8.1. This time we press key "1" in order to 
specify a one-note sequence. Led 11 lights up, as shown in Figure 8.2. 
We press key "F," and the note is played on the speaker. (We do not 
look at the Games Board to see which LED lights up, as that would be 
too easy.) We press key "3." A "lose" sound is heard, and LED 1 
lights up indicating that one mistake has been made. A decreasing 
scale is then played (notes of decreasing frequencies) to confirm to the 
unfortunate player that he or she has guessed the sequence incor- 
rectly. The game is then continued with the same sequence and length, 
i.e., the situation is once again the one indicated in Figure 8.2. 

If at this point the player wants to change the length of the se- 
quence, or enter a new sequence, he or she must explicitly restart the 
game by pressing key 0. After pressing key 0, the situation will be 
the one indicated in Figure 8.1, where the length of the sequence can 
be specified again. 

THE ALGORITHM 

The flowchart for this program is shown in Figure 8.4. Let us ex- 
amine it, step-by-step: 

1. The program tells the player to select a sequence length by 
lighting LED 10 on the Games Board. 

2. The sequence length is read from the keyboard. (Keys and 
A-F are ignored at this point.) 

3. The two main variables are initialized to "0," i.e., the number 
of guesses and the number of errors are cleared. 

4. A sequence table of the appropriate length must then be 
generated using random numbers whose values are between 1 
and 9. 

5. Next, LED 1 1 is lit, and the player's keystroke is read. 

6. If it is "0," the game is restarted. Otherwise, we proceed. 

7. If the keystroke value is greater than or equal to 10, it is an 
alphabetic character and we branch off to the right part of the 
flowchart into steps 8 and 9. The recorded sequence is displayed 
to the player, all variables are reinitialized to 0, and the guess- 
ing process is restarted. If the keystroke was a number between 
1 and 9, it must be matched against the stored value. We go to 
10 on the flowchart. 
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Ftg. 8.4: Echo Flowchart 
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10. If the guess was correct, we branch right on the flowchart to 
step 11. 

11 . Since the key pressed matches the value stored in memory, the 
corresponding LED on the Games Board is lit, and the tone 
corresponding to the key that has been pressed is played. 

12. The guessed number is incremented, and then it is compared to 
the maximum length of the sequence to be guessed. 

13. A check is made to see if the maximum length of the sequence 
has been reached. If it has not, a branch occurs back to step 5 
on the flowchart, and the next keystroke is obtained. If the 
maximum length of the sequence has been reached, we proceed 
down the flowchart to the box labeled 14. 

14. The total number of errors made by the player is checked. The 
variable ERRORS is tested against the value "0." If it is "0" it 
is a winning situation and a branch occurs to box 15. 

15. All LEDs on the board are lit, a sequence of ascending tones is 
played, and a branch occurs back to the beginning of the game. 

Let us now go back to box 14. If the number of errors was greater 
than zero, this is a "lose" situation and a branch occurs to box 16. 

16. The number of errors is displayed, and a sequence of descend- 
ing tones is played. 

17. All variables are reset to 0, and a branch occurs to box 5, giving 
the player another chance to guess the series. 

Now we shall turn our attention back to box 10 on the flowchart, 
where the value of the key was being tested against the stored value. 
We will assume this time that the guess was wrong, and branch to the 
left of box 10. 

18. The number of errors made by the player is incremented by 
one. 

19. A low tone is played to indicate the losing situation. The pro- 
gram then branches back to box 12 and proceeds as before. 

THE PROGRAM 

The complete program appears in Figure 5.1. The program uses two 
tables, and several variables. The two tables are NOTAB used to 
specify the note frequencies, and DURTAB used to specify the note 
durations. Both of these tables were introduced in Chapter 2, and will 
not be described here. Essentially, they provide the delay constants re- 
quired to implement a note of the appropriate frequency and to play it 
for the appropriate length of time. Note that it is possible to modify 
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LINE * LOC 
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Fig. 8.5: Echo Program 
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CLC 




69 


00 






ADC 


to 


D8 








CLti 




29 


OF 






AND 


♦*of ;f 










! NUMBER IS 


FO 


FO 






BEO 


FILL i 


95 


06 






STA 


TABLE. 


Cft 








DEX 


; 


10 


EB 






BPL 


FILL > 


A9 


00 




KEY 


LDft 


tO 


an 


01 


AO 




STA 


PORTIA 


A9 


04 






LDft 


»%0100 


err 


00 


AO 




STA 


PDRT1B 


20 


00 


01 




JSR 


GETKEY 


C9 


00 






CMP 


*0 ( 


FO 


AB 




STRTJP 


BEO 


START 


C9 


Oft 






CMP 


*10 > 


30 








BMI 


EVAL i 



A2 00 
86 01 
86 02 
B5 06 
86 05 
20 CF 02 
20 FA 02 
AO FF 
66 03 
26 03 
88 

DO F9 
A6 05 
E8 

E4 00 
DO E6 
FO C9 



A6 01 
D5 06 
FO OD 
E6 02 
A9 80 
85 03 
A9 FF 
20 04 
FO 06 
20 CF 02 
20 FA 02 
E6 01 
A5 00 
C5 01 
DO AB 
A5 02 
C9 00 
FO 15 
20 CF 02 
A9 09 
48 

20 FA 02 
68 



03 



.SERIES W/RANDOM VALUES. 
(SAVE X FROM ' RANDOM ' 



ft DEIMAL ADJUST 



REMOVE UPPER NYBBLE SO 
10 

t CAN'T BE ZERO. 
X (STORE t IN TABLE 
ECREMENT FOR NEXT 
OOP IF NOT DONE 
■LEAR LEDS 



IS IT ? 

(IF YESi RESTART 
NUMBER < 10 ? 
IF YES , EVALUATE GUESS 



(ROUTINE TO DISPLAY SERIES TO BE GUESSED BY 
♦LIGHTING LEDS AND PLAYING TONES IN SEQUENCE, 

SHOW LDX tO 

STX GFSNO (CLEAR ALL CURRENT GUESSES. 

STX FRRS (CLEAR CURRENT ERRORS . 
SHOULP LDA TABLE, X ( GET XTH ENTRY IN SERIES 

STX TEMP (SAVE X 

JSR LIGHT SLIGHT LED* < TABLE ( X ! ) 

JSR PLAY SPLAY TONEt ( TABLE ( X ) ) 

I BY t*FF | SET LOOP CNTR. FOR DELAY 
DELAY ROR OUR (WASTE TIME 

ROL DUR 

DFY i COUNT DOWN. . . 

BNF DFI AY ( IF NOT DONE, LOOP AGAIN. 

LDX TEMP • RESTORE X 

INX (INCREMENT INDEX TO SHOW NEXT 

CPX DIGITS » ALL DIGITS SHOWN? 
BNF SHOULP ilF NOT, SHOW NEXT. 

beo key (bone: get next input, 
routine to evaluate guesses of player. 



EVAL LDX 
CMP 
BEO 

WRONG INC 
LDA 
STA 
LBA 
JSR 
BEQ 

CORECT JSR 
JSR 

ENDCHK INC 
LDA 
CMP 
BNE 
LDA 
CMP 
BEO 

LOSE JSR 
LHA 

LOSELP PHA 
JSR 
PLA 



GFSNO ( GET NUMBER OF GUESS. 

TABLE, X ( GUESS « CORRESPONDING MBIT? 
CORECT (IF YES, SHOW PLAYER. 
ERRS < GUESS WRONG, ANOTHER ERROR. 

•*80 DURATION FOR LOW TONE TO INDICATE 

DUR (bad guess. 

t*FF (FREQUENCY CONSTANT 
PLYTON ( F'LAY IT 
ENDCHK (CHECK FOR ENDGAME 
LIGHT (VALIDATE CORRECT GUESS . . -.- 

PLAY 
GESNO 
DIGITS 

GESNO (ALL DIGITS GUESSED? 
KEY (IF NOT, GET NEXT. 
ERRS (BET NUMBER OF ERRORS. 
tO J ANY ERRORS? 
WIN (IF NOT, PLAYER WINS. 
LIGHT (SHOW NUMBER OF ERRORS. 

t9 (PLAY 8 DESCENDING TONES 

PLAY 



( ONE MORE GUESS TAKEN. 



- Fig. 8.5: Echo Program (Continued) - 
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0142 


02AC 


38 








SEC 




0143 


02AD 


E9 


01 






SBC 


tl 


0144 


02AF 


DO 


F6 






BNE 


LOSELP 


0145 


02B1 


85 


01 






STA 


GESNO (CLEAR VARIABLES 


0146 


02B3 


85 


02 






STA 


ERRS 


0147 


02B5 


FO 


8B 






BEQ 


KEY (GET NEXT GUESS SEQUENCE 


0148 


02B7 


A9 


FF 




WIN 


LBA 


**FF (TURN ALL LEDS ON FOR WIN 


0149 


02B9 


8D 


01 


AO 




STA 


PORTIA 


0150 


02BC 


8D 


00 


AO 




STA 


PORT IB 


0151 


02BF 


A9 


01 






LBA 


♦1 (PLAY 8 ASCENDING TONES 


01S2 


02C1 


48 






WINLP 


PHA 




0153 


02C2 


20 


FA 


02 




JSR 


PLAY 


0154 


02C5 


68 








PLA 




0155 


02C6 


18 








CLC 




0156 


02C7 


69 


01 






ABC 


#01 


0157 


02C9 


C9 


OA 






CMP 


*10 


0158 


02CB 


BO 


F4 






BNE 


WINLP 


0159 


02CD 


FO 


84 






BEQ 


STRTJP (USE DOUBLE- JUMP FOR RESTART 


0140 


02CF 














0161 


02CF 








(ROUTINE TO LIGHT NTH LEB •> WHERE N IS 


0162 


02CF 








(THE NUMBER PASSEB AS A PARAMETER IN 


0163 


02CF 








(THE ACCUMULATOR. 


0164 


02CF 














0165 


02CF 


48 






LIGHT 


PHA 


(SAVE A 


0166 


02DO 


AB 








TAY 


(USE A AS COUNTER IN Y 


0167 


02111 


A9 


00 






LBA 


#0 (CLEAR A FOR BIT SHIFT 


0168 


02D3 


SB 


00 


AO 




STA 


P0RT1B (CLEAR HI LEDS. 


0169 


02D6 


38 








SEC 


( GENERATE HI BIT TO SHIFT LEFT. 


0170 


02117 


2A 






LTSHFT 


ROL 


A (MOVE HI BIT LEFT. 


0171 


02B8 


88 








BEY 


(DECREMENT COUNTER 


0172 


02B9 


BO 


FC 






BNE 


LTSHFT (SHIFTS DONE? 


0173 


02DB 


8B 


01 


AO 




STA 


PORTIA (STORE CORRECT PATTERN 


0174 


02DE 


90 


05 






BCC 


LTCC (BIT 9 NOT HI t DONE. 


0175 


02E0 


A9 


01 






LBA 


♦ 1 


0174 


02E2 


8B 


00 


AO 




STA 


P0RT1B (TURN LED 9 ON. 


0177 


02E5 


68 






LTCC 


PLA 


(RESTORE A 


0178 


02E6 


40 








RTS 


( DONE . 


0179 


02E7 














0180 


02E7 








(RANBOM NUMBER GENERATOR! RETURNS 14/ NEW 


0181 


02E7 








( RANBOM NUMBER IN A. 


0182 


02E7 














0183 


02E7 


38 






RANBOM 


SEC 




0184 


02E8 


A5 


10 






LDA 


RND+1 


0185 


02EA 


65 


13 






ABC 


RND+4 


0186 


02EC 


65 


14 






ADC 


RND+5 


0187 


02EE 


85 


OF 






STA 


RND 


0188 


02F0 


A2 


04 






LBX 


*4 


0189 


02F2 


B5 


OF 




RNDLP 


LBA 


RND » X 


0190 


02F4 


95 


10 






STA 


RND+1 .X 


0191 


02F6 


CA 








HEX 




0192 


02F7 


10 


F9 






BPL 


RNDLP 


0193 


02F9 


60 








RTS 




0194 


02FA 














0195 


02FA 








(ROUTINE TO PLAY TONE WHOSE NUMBER IS PASSEB 


0196 


02FA 








(IN BY 


ACCUM. IF ENTERED AT PLYTON i IT WILL 


0197 


02FA 








(PLAY 


TONE 


WHOSE LENGTH IS IN DUR. FREQUENCY 


0198 


02FA 








(IN ACCUMULATOR. 


0199 


02FA 








( 






0200 


02FA 


A8 






PLAY 


TAY 


(USE TONE* AS INDEX. . . 


0201 


02FB 


88 








BEY 


( DECREMENT TO MATCH TABLES 


0202 


02FC 


B9 


27 


03 




LDA 


DURTAB.Y (GET DURATION FOR TONE* N. 


0203 


02FF 


85 


03 






STA 


DUR ( SAVE IT. 


0204 


0301 


B9 


IE 


03 




LDA 


NOTAB j Y (GET FREE). CONST FOR TONE* N 


0205 


0304 


85 


04 




PLYTON 


STA 


FREQ (SAVE IT, 


0206 


0306 


A9 


00 






LDA 


tO (SET SPKR PORT L . 


0207 


0308 


8B 


00 


AC 




STA 


P0RT3B 


0208 


030B 


A6 


03 






LDX 


DUR (GET DURATION IN * OF 1/2 CYCLE 


0209 


030H 


A4 


04 




FL2 


LDY 


FREQ (GET FREQUENCY 


0210 


030F 


88 






FL1 


DEY 


(COUNT DOWN DELAY. . . 


0211 


0310 


18 








CLC 


(WASTE TIME 


0212 


0311 


90 


00 






BCC 


*+2 



Fig. 8.5: Echo Program (Continued) 
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0213 


0313 


no 


FA 


0214 


0315 


49 


FF 


0215 


0317 


SB 


00 AC 


0214 


031A 


CA 




0217 


031B 


DO 


FO 


0218 


03111 


60 




0219 


031E 






0220 


031E 






0221 


031E 






0222 


031E 


C9 






031 F 


BE 








A9 








96 






03^ 


8E 




0222 


0323 


7E 




0222 


0324 


70 




0222 


0325 


64 




0222 


0326 


5E 




0223 


0327 






0224 


0327 






0225 


0327 






0226 


0327 


6B 




0226 


0328 


72 




0226 


0329 


80 




0226 


032A 


8F 




0226 


032B 


94 




0226 


032C 


AA 




0226 


032U 


BF 




0226 


032E 


D7 




0226 


032F 


E4 




0227 


0330 







BNE FL1 SLOOP FOR DELAY 

EOR #»FF » COMPLEMENT PORT 

STA P0RT3B 

DEX .COUNT DOWN DURATION... 

BNE FL2 SLOOP TIL NOTE OVER. 
RTS . DONE * 

TABLE FOR NOTE FREQUENCIES. 

NOT AS . BYTE *C9 . $BE . * A9 . $96 , $8E . *7E . $70 . $64 . *5E 



TABLE FOR NOTE DURATIONS. 
DURTAB . BYTE $ 6B . $72 . $80 . *BF . * 94 . * AA t $BF . $ 1)7 . *F4 



SYMBOL TABLE 
SYMBOL VALUE 



CORECT 


028E 


DDR1A 


A003 


DELAY 


026B 


DIBITS 


0000 


DURTAB 


0327 


ENDCHK 


0294 


FILL 


022F 


FL1 


030F 


GESNO 


0001 


GETKEY 


0100 


LOSE 


02A2 


LOSELP 


02A7 


NOTAB 


031E 


PLAY 


02FA 


PORT IB 


AOOO 


P0RT3B 


ACOO 


RNDLP 


02F2 


SHOW 


0259 


STRTJP 


0253 


TICL 


A004 


UIIN 


02B7 


UIINLP 


02C1 


END OF 


ASSEMBLY 







DDR IB 


A002 


DDR3B 


AC02 


DIGKEY 


0220 


IIUR 


0003 


ERRS 


0002 


EVAL 


027B 


FL2 


030D 


FREO 


0004 


KEY 


0244 


LIGHT 


02CF 


LTCC 


02E5 


LTSHFT 


02D7 


PLYTON 


0304 


PORTIA 


A001 


RANDOM 


02E7 


RND 


OOOF 


SHOWLP 


025F 


START 


0200 


TABLE 


0006 


TEMP 


OOOS 


WRONG 


0281 







Fig. 8.5: Echo Program (Continued) 

the difficulty of the game by increasing or decreasing the duration 
during which each note is played. Clearly, reducing the duration 
makes the game more difficult. Increasing the duration will usually 
make it easier, up to a point. You are encouraged to try variations. 
The main variables used by the program are the following: 
DIGITS contains the number of digits in the sequence to be 
recognized. 

GESNO indicates the number of the current guess, i.e., which of the 
notes in the series the user is attempting to recognize. 
ERRS indicates the number of errors made by the player so far. 
TABLE is the table containing the sequence to be recognized. 
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A few other memory locations are reserved for passing parameters 
to subroutines or as scratch-pad storage. They will be described within 
the context of the associated routines. 

As usual, the program starts by setting the data direction registers 
for Port 1A, Port IB and Port 3B to an output configuration: 

START LDA #$FF 

STA DDR1A 
STA DDR1B 
STA DDR3B 

Next, all LEDs on the board are turned off: 

LDA #0 
STA PORTIA 

and the two variables, ERRS and GESNO, are set to 0: 

STA ERRS 
STA GESNO 

The random number generator is primed by obtaining a seed and stor- 
ing it at locations RND + 1 and RND + 4: 

LDA T1CL Read timer counter. 

STA RND + 1 
STA RND + 4 

The game is now ready to start. LED 10 must be turned on to indicate 
to the player that the game is ready: 

LDA #%010 Pattern for LED 10 

STA PORT1B Specify length 

The keyboard is scanned for the player input using the usual GETKEY 
subroutine (described in Chapter 1): 

DIGKEY JSR GETKEY 

It is checked for the value "0": 
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CMP #0 

BEQ DIGKEY If = 0, get another one 

If the entry was "0," the program waits for another keystroke. Other- 
wise, it is compared to the value 10: 

CMP #10 Sequence longer than 9 

BPL DIGKEY 

If the sequence length is greater than 9, it is also rejected. Accepting 
only valid inputs, using a bracket is known as "reasonableness 
testing" or "bracket-filtering." 

If all is fine, the length of the sequence to be recognized is stored at 
memory location DIGITS: 

STA DIGITS Length of sequence 

A running pointer is then computed and stored at location TEMP. It 
is equal to the previous length minus 1 : 

TAX Use X for computation 

DEX Decrement 
FILL STX TEMP 

The RANDOM subroutine is then called to provide a first random 
number: 

JSR RANDOM 

The position pointer in the series of notes now being generated is 
retrieved from TEMP, and stored in index register X in anticipation 
of storing the new random number in TABLE: 

LDX TEMP 

The value of the random number contained in the accumulator is then 
converted to a decimal value between and 9. This process can be per- 
formed in various ways. Here, we take advantage of the special 
decimal mode available on the 6502. The decimal mode is set by speci- 
fying: 

SED Set decimal mode 
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Note that the carry flag must be cleared, prior to an addition: 

CLC Clear carry 

The trick used here is to add "0" to the random number contained in 
the accumulator. The result in the right part of A is guaranteed to be a 
digit between and 9, since we are operating in the decimal mode. 
Naturally, any other number could also be added to A to make its con- 
tents "decimal"; however, this would change the distribution of the 
random numbers, and some numbers in the series such as 0, 1, and 2 
might never appear. Once this conversion has been performed, the 
decimal mode is simply turned off: 

ADC #0 Add "0" in decimal mode 

CLD Clear decimal mode 

This is a powerful 6502 facility used to a great advantage in this in- 
stance. In order to guarantee that the result left in A be a decimal 
number between and 9, the upper nibble of the byte is removed by 
masking it off: 

AND $#0F 

Finally, a value of "0" is not allowed, and a new number must be ob- 
tained if this is the current value of the accumulator: 

BEQ FILL 

Exercise 8-2: Could we avoid this special case for "0" by adding a 
value other than "0" to A above? 

If this is not the current value of the accumulator, we have a decimal 
number between 1 and 9 that is reasonably random, which can now 
be stored in the table. Remember that index register X has been 
preloaded with the current number's position in the sequence (re- 
trieved from memory location TEMP). It can be used, as is, as an in- 
dex: 

STA TABLE.X Store # in table 

The number pointer is then decremented in anticipation of the next 
iteration: 
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DEX 

and the loop is reentered until the table of random numbers becomes 
full: 

BPL FILL 

We are now ready to play. LED 12 will be turned on, signaling to the 
player that he or she may enter a guess: 

KEY LDA #0 

STA PORTIA 
LDA #%0100 
STA PORT1B 

The player's guess is then read from the keyboard: 

JSR GETKEY Get guess 

It must be tested for "0" or for an alphabetic value. Let us test for 
"0": 

CMP #0 Is it 0? 

STRTJP BEQ START If yes, restart 

If it is "0," the game is restarted, and a branch occurs to location 
START. If it is not "0," we must check for an alphabetic character: 

CMP #10 Number < 10? 

BMI EVAL If yes, evaluate correctness 

If the value of the input keystroke is less than ten, it is a guess and is 
evaluated with the EVAL routine. Otherwise, the program executes 
the SHOW routine to display the series. 

The SHOW Routine 

We will assume here that an alphabetic key has been pressed. BMI 
fails, and we enter the SHOW routine. This routine plays the 
computer-generated tune and lights up the corresponding sequence of 
LEDs. Also, whenever this routine is entered, the guessing sequence is 
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restarted and the temporary variables are reset to 0: 

SHOW LDX #0 

STX GESNO 

STX ERRS Reset all variables 

The first table entry is obtained, the corresponding LED is lit, and the 
corresponding tone is played: 

SHOWLP LDA TABLE.X Get Xth entry in table 

STX TEMP Save X 

JSR LIGHT Light LED # TABLE (X) 

JSR PLAY Play tone # TABLE (X) 

An internote delay is then implemented using Y as the loop counter 
and two dummy instructions to extend the delay: 

LDY #$FF 

DELAY ROR DUR Dummy instruction 

ROL DUR Dummy 

DEY Count down 

BNE DELAY End of loop test 

We are now ready to perform the same operation for the next note in 
the current table. The index pointer is restored and incremented: 

LDX TEMP Restore X 

INX Increment it 

It is then compared to the maximum number of digits stored in the 
table. If the maximum has been reached, the display operation is com- 
plete and we go back to label KEY. Otherwise, the next tone is sound- 
ed, and we go back to label SHOWLP: 

CPX DIGITS All digits shown? 
BNE SHOWLP 

BEQ KEY Done, get next input 

The EVAL Routine 
Let us now examine the routine which evaluates the guess of the 
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player. It is the EVAL routine. The value of the corresponding entry in 
TABLE is obtained and compared to the player's input: 

EVAL LDX GESNO Load guess number into X 

CMP TABLE.X Compare guess to number 
BEQ CORECT If correct, tell player 

If there is a match, a branch occurs to location CORECT; otherwise, 
the program proceeds to label WRONG. Let us examine this case. If 
the guess is wrong, one more error is recorded: 

WRONG INC ERRS 

A low tone is played: 

LDA #$80 
STA DUR 
,LDA #$FF 

JSR PLYTON Play it 

A jump then occurs to location ENDCHK: 

BEQ ENDCHK Check for end of game 

Exercise 8-3: Examine the BEQ instruction above. Will it always result 
in a jump to label ENDCHK? (Hint: determine whether or not the Z 
bit will be set at this point.) 

Exercise 8-4: What are the merits of using BEQ (above) versus JMP? 

Now we shall consider what happens in the case of a correct guess. 
If the guess is correct, we light up the corresponding LED and play the 
corresponding tone. Both subroutines assume that the accumulator 
contains the specified number: 

CORECT JSR LIGHT Turn on LED 

JSR PLAY Play note to confirm 

We must now determine whether we have reached the end of a se- 
quence or not, and take the appropriate action. The number of 
guesses is incremented and compared to the maximum length of the 
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stored tune: 



ENDCHK INC GESNO One more guess 
LDA DIGITS 

CMP GESNO All digits guessed? 

BNE KEY If not, get next key closure 

If we are not done yet, a branch occurs back to label KEY. Otherwise, 
we have reached the end of a game and must signal either a "win" or a 
"lose" situation. The number of errors is checked to determine this: 

LDA ERRS Get number of errors 

CMP #0 No error? 

BEQ WIN If not, player wins 

If a "win" is identified, a branch occurs to label WIN. This will be 
described below. Let us examine now what happens in the case of a 
"lose": 



LOSE JSR LIGHT Show number of errors 

The number of errors is displayed by lighting up the corresponding 
LED. Remember that the accumulator was conditioned prior to enter- 
ing this routine and contained the value of ERRS, i.e., the number of 
errors so far. 

Next, a sequence of eight descending tones is played. The top of the 
stack is used to contain the remaining number of tones to be played: 

LDA #9 Play 8 descending tones 

LOSELP PHA Save A on stack 

JSR PLAY Play tone 

PLA Restore A 



Once a tone has been played, the remaining number of tones to be 
played is decremented by one and tested for "0": 



SEC Set carry (for subtract) 

SBC #1 Subtract one 

BNE LOSELP 



Exercise 8-5: Note how the top of the stack has been used as a tern 
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porary scratch location. Can you suggest an alternative way to achieve 
the same result without using the stack? 

Exercise 8-6: Discuss the relative merits of using the stack versus using 
other techniques to provide temporary working locations for the pro- 
gram. Are there potential dangers inherent in using the stack? 

Eight successive tones are played. Then the two work variables, 
GESNO and ERRS, are reset to "0," and a branch occurs back to the 
beginning of the program: 

STA GESNO Clear variables 
STA ERRS 

BEQ KEY Get next guess sequence 

Let us examine now what happens in a "win" situation. All LEDs on 
the Games Board are turned on simultaneously: 

WIN LDA #$FF It is a win: turn all LEDs on 

STA PORTIA 
STA PORT1B 

Next, a sequence of eight ascending tones is played. The tone number 
is stored in the accumulator and will be used as an index by the PLAY 
subroutine to generate an appropriate note. As before, the top of the 
stack is used to provide working storage: 

LDA #1 A will be incremented to 9 

WINLP PHA Save A on the stack 

JSR PLAY 
PLA 

The number of tones which have been played is then incremented by 1 
and compared to the maximum value of 9: 

CLC Clear carry for addition 

ADC #01 
CMP #10 

As long as the maximum of 9 has not been reached, a branch occurs 
back to label WINLP: 
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BNE WINLP 

Otherwise, a new game is started: 

BEQ STRTJP Double jump for restart 

This completes the description of the main program. Three 
subroutines are used by this program. They will now be described. 



The Subroutines 

LIGHT Subroutine 

This subroutine assumes that the accumulator contains the number 
of the LED to be lit. The subroutine will light up the appropriate LED 
on the Games Board. It will achieve this result by writing a "1" in the 
appropriate position in the accumulator and then sending it to the ap- 
propriate output port. Either Port 1A will be used (for LEDs 1 through 
8) or Port IB (for LED 9). The "1" bit is written in the appropriate 
position in the accumulator by performing a sequence of shifts. The 
number of shifts is equal to the position of the LED to be lit. Index 
register Y is used as a shift-counter. The number of the LED to be lit is 
saved in the stack at the beginning of the subroutine and will be 
restored upon exit. Note that this is a classic way to preserve the con- 
tents of an essential register during subroutine execution so that the 
contents of the accumulator will be unchanged upon subroutine exit. 
If this was not the case, the calling program would have to explicitly 
preserve the contents of the accumulator prior to calling the LIGHT 
subroutine. Then it might have to load it back into the accumulator 
prior to using another one of the routines, such as the PLAY routine. 
Because LIGHT and PLAY are normally used in sequence, it is more 
efficient to make it the subroutine's responsibility to save the contents 
of the accumulator. Let us do it: 

LIGHT PHA Preserve A 

The shift-counter is then set up: 

TAY Use Y as shift counter 

and the accumulator is initialized to "0": 
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LDA #0 Clear A 

LED 9 is turned off in case it was lit: 

STA PORT1B 

The shifting loop is then implemented. The carry bit is initially set to 
"1," and it will be shifted left in the accumulator as many times as 
necessary: 

SEC Set carry 

LTSHFT ROL A 
DEY 

BNE LTSHFT 

The correct bit pattern is now contained in the accumulator and dis- 
played on the Games Board: 

STA PORTIA 

However, one special case may arise: if LED 9 has been specified, the 
contents of the accumulator are "0" at this point, but the carry bit has 
been set to "1" by the last shift. This case must be explicitly tested for: 

BCC LTCC Is bit 9 set? 

If this situation exists, the accumulator must be set to the value 
"00000001," and output to Port IB: 

LDA #1 

STA PORT1B Turn LED 9 on 

We finally exit from the routine without forgetting to restore the ac- 
cumulator from the stack where it had been saved: 

LTCC PLA Restore A 

RTS 

Exercise 8-7: List the registers destroyed or altered by this subroutine 
every time it is executed. 
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Exercise 8-8: Assume that register Y must be left unchanged upon 
leaving this subroutine. What are the required program changes, if 
any? 

RANDOM Subroutine 

This subroutine generates a new random number and returns its 
value in A. Its operation has been described in Chapter 4. 

PLAY Subroutine 

This subroutine will normally play the tone corresponding to the 
number contained in the accumulator. Optionally, it may be entered 
at location PLYTON and will then play the tone corresponding to the 
frequency set by the accumulator and corresponding to the length 
specified by the contents of memory location DUR. Let us examine it. 

Index register Y is used as an index to the two tables required to 
determine the note duration and the note frequency. In this game, up 
to 9 notes may be played, corresponding to LEDs and keys 1 through 
9. Index register Y is first conditioned: 

PLAY TAY Use tone # as index 

DEY Decrement to internal value 

Note that the index register must be decremented by one. This is 
because key 1 corresponds to entry number in the table, and so on. 
The duration and frequencies are obtained from tables DURTAB and 
NOTAB using the indexed addressing mode. They are stored respec- 
tively at locations DUR and FREQ: 

LDA DURTAB.Y Get duration 

STA DUR Save it 

LDA NOTAB, Y Get frequency 

PLYTON STA FREQ Save it 

The speaker is then turned off: 

LDA #0 

STA PORT3B Set speaker Port 3B 

Two loops will now be implemented. An inner loop will use register Y 
as the delay-counter to implement the correct frequency for the note. 
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Register X will be used in the outer loop and will generate the tone for 
the appropriate duration of time. 
Let us condition the two counter registers: 

LDX DUR Get duration in # of Vi cycles 

FL2 LDY FREQ Get frequency 

Next, let us implement the inner loop delay: 

FL1 DEY 

CLC Waste time 

BCC * + 2 

BNE FL1 Delay loop 

Note that two "do-nothing" instructions have been placed inside the 
loop to generate a longer delay. At the end of this inner loop delay the 
contents of the output port connected to the loudspeaker are com- 
plemented in order to generate a square wave. 

EOR #$FF Complement port 

Note that, once more, EOR #$FF is used to complement the contents 
of a register. 

STA PORT3B 
The outer loop can then be completed: 
DEX 

BNE FL2 Outer loop 

RTS 

SUMMARY 

This program demonstrates how simple it is to implement electronic 
keyboard games that sound for input/output and that are challenging 
to adult players. 

Exercise 8-9: The duration and frequency constants for the nine notes 
are shown in Figure 8. 6. What are the actual frequencies generated by 
the program? 
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NOTE 


FREQUENCY 


DURATION 




CONSTANT 


CONSTANT 


1 


C9 


6B 


2 


BE 


72 


3 


A9 


80 


4 


96 


8F 


5 


8E 


94 


6 


7E 


AA 


7 


70 


BF 


8 


64 


D7 


9 


5E 


E4 



Fig. 8.6: Frequency and Duration Constants 
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(Mindbender) 



INTRODUCTION 

Interrupts are generated by using the programmable interrupt timer 
of the 6522 VIA, a common 6502 I/O chip. The programmable interrupt 
timer is used in the free-running mode to generate a wave form. 

THE RULES 

This game is inspired by the commercial game of MasterMind 
(trademarked by the manufacturer, Invicta Plastics, Ltd.). In this 
game, one or more players compete against the computer (and against 
each other). The computer generates a sequence of digits — for exam- 
ple, a sequence of five digits between "0" and "9" — and the player 
attempts to guess the sequence of five numbers in the correct order. 
The computer responds by telling the player how many of the digits 
have been guessed accurately, and how many were guessed in their 
correct location in the numerical sequence. 

LEDs 1 through 9 on the Games Board are used to display the com- 
puter's response. A blinking LED is used to indicate that the player's 
guess contains a correct digit which is located in the right position in 
the sequence. A steadily lit LED is used to indicate a digit correctly 
guessed but appearing out of sequence. Several players can match 
their skills against each other. For a given complexity level — say, for 
guessing a sequence of seven digits — the player that can correctly guess 
the number sequence with the fewest guesses is the winner. 

The game may also be played with a handicap whereby a given 
player has to guess a sequence of n digits while the other player has to 
guess a sequence of only n - 1 digits. This is a serious handicap, since 
increasing the level of difficulty by one is quite significant. 

A TYPICAL GAME 

Both audio and visual feedback are used to play this game. 
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The Audio Feedback 

Every time that a player has entered his or her sequence of guesses, 
the computer responds by sounding a specific tone. A low tone in- 
dicates an incorrect guess; a high tone indicates that the sequence was 
guessed correctly. 

The Visual Feedback 

At the beginning of each game, LED #10 is lit, requesting the length 
of the sequence to be guessed. This is shown in Figure 9.1. The player 
then specifies the sequence length as a number from 1 through 9. Any 
other input will be ignored. 

I 

• o o o o o 

10 11 12 13 14 15 
Fig. 9. 1 : Enter Length of Sequence 

As soon as the length has been specified, for example, let's say the 
length "2" has been selected, LED #11 lights up. This means "Enter 
your guess." (See Figure 9.2.) At this point the player enters his or her 
guess as a sequence of two digits. Let us now play a game. 

I 

• • o o o o 

10 11 12 13 14 15 
Fig. 9.2: Enter Your Gues* 

The player types in the sequence "1,2." A low tone sounds, LEDs 
10 and 11 go out briefly, but nothing else happens. The situation is in- 
dicated in Figure 9.3. Since LEDs 1 through 9 are blank, there is no 
correct digit in the guess. Digits "1" and "2" must be eliminated. Let 
us try another guess. 

We type "3,4." A low tone sounds, but this time LED #1 is steadily 
on, as indicated in Figure 9.4. From this we know that either "3" or 
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o o 

1 2 3 

o o o 

4 5 6 

o o o 

7 8 9 

• • oo o o 

10 11 12 13 14 15 
Fig. 9.3: Player Enters Wrong Guess 



• o o 

1 2 3 

o o o 

4 5 6 

O O O 

7 8 9 

• • O OO O 

10 11 12 13 14 15 
Fig. 9.4: One Correct Digit in the Correct Position 

"4" is one of the digits and that it belongs in the other position. Con- 
versely, the sequence "4,3," must have one good digit in the right 
position. Just to be sure let us perform a test. 

We now type "4,3." A low tone sounds, indicating that the se- 
quence is not correct, but this time LED #1 is on and blinking. 
This proves that our reasoning is correct, and we proceed. 

We now try "4,5." A high-pitched sound is heard and LEDs 1 and 2 
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light up briefly, indicating that those digits have been guessed correct- 
ly and that we have won our first game. 

At the end of the game, the situation reverts to the one at the begin- 
ning, as indicated in Figure 9.1. Note that typing in a value other than 
"1" through "9" as a guess will restart the game. 

There is a peculiarity to the game: if the number to be guessed con- 
tains two identical digits, and the player enters this particular digit in 
one of its two correct locations, the computer response will indicate 
this digit as being both the right digit in the right place and the right 
digit in the wrong place ! 



THE ALGORITHM 

The flowchart for Mindbender is shown in Figure 9.5. Interrupts are 
used to blink the LEDs. Interrupts will be generated automatically by 
the programmable interval timer of VIA #1 at approximately l/15th- 
of-a-second intervals. 

Referring to Figure 9.5, all of the required registers and memory loca- 
tions will be initialized first. Next (box 2 on the flowchart), the length 
of the sequence to be guessed is read from the keyboard. The validity 
bracket "1" to "9" is used to "filter" the player's input. 

Next, a random sequence must be generated. In box 3 of the 
flowchart, a sequence of random numbers is generated and stored in a 
digit table, starting at address DIGO. 

In box 5, the computer's sequence of numbers is compared — one 
number at a time — with the player's guess. The algorithm takes one 
digit from the computer sequence and matches it in order against 
every digit of the player sequence. As we have already indicated, this 
may result in lighting up two LEDs, if ever there are two or more iden- 
tical digits in the number to be guessed and the player has specified 
only one digit. One digit may be flagged as being in the right place, 
and also as being correct but in the wrong location(s). 

Note that, alternatively, another comparison algorithm could be 
used in which each digit of the player's sequence is compared in turn 
with each digit of the computer's sequence. 

Once the digits have been compared, the resulting score is displayed 
on the LEDs (box 6). Finally, a test is made for a win situation (box 7), 
and the appropriate sound is generated (box 8). 
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^MINDBENDER^ 



n 



READ LENGTH OF 
SEQUENCE = DIGITS 



GENERATE RANDOM 
NUMBERS AND STORE 
IN DIGIT TABLE 



READ USER GUESSES 
INTO ENTRY TABLE 



COMPARE GUESS 
WITH CORRECT 
NUMBERS 



DISPLAY SCORE 
CORRECT DIGITS 
AND CORRECT PLACE 




8 HIGH SOUND 



Fig. 9.5: Mindbender Flowchart 
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THE PROGRAM 
Data Structures 

Two tables of nine entries are used to store, respectively, the com- 
puter's sequence and the player's sequence. They are stored starting at 
addresses DIGO and ENTRYO. (See Figure 9.6.) 

The Variables 

Page is used, as usual, to provide additional working registers, 
i.e., to store the working variables. The use of page is indicated as a 
"memory map" in Figure 9.6. The first nine locations are used for the 
program variables. The function of each variable is indicated in the il- 
lustration and will be described in detail as we examine the program 
below. Locations "09" through "0E" are reserved for the random 
table used to generate the random numbers. Locations "OF" through 
"17" are used for the DIGO table used to store the computer- 
generated sequence of random numbers. Finally, locations "18" and 
following are used to contain the sequence of digits typed by the user. 

The memory locations used for addressing input/ output and for in- 
terrupt vectoring are shown in Figure 9.7. Locations "A000" through 
"A005" are used to address Ports A and B of VIA #1 as well as timer 
Tl. The memory map for a 6522 VIA is shown in Figure 9.8. 

Location "A00B" is used to access the auxiliary control register, 
while location "A00E" accesses the interrupt-enable register. For a 
detailed description of these registers the reader is referred to the 6jU* 
Applications Book (reference D302). 

Memory locations "A67E" and "A67F" are used to set up the in- 
terrupt vector. The starting address of the interrupt-handling routine 
will be stored at this memory location. In our program, this will be ad- 
dress "03EA." This is the routine in charge of blinking the LEDs. It 
will be described below. Finally, Port 3 is addressed at memory loca- 
tions "ACOO" and "AC02." 

Program Implementation 

A detailed flowchart for the Mindbender program is shown in 
Figure 9.9. Let us now examine the program itself. (See Figure 9. 13.) 

The initialization block resides at memory addresses 0200-0239 hex- 
adecimal and conditions interrupts and I/O. First, interrupts are con- 
ditioned. Prior to modifying the interrupt vector which resides at ad- 
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Length of Sequence 
Tone Duration Constant 
Temporary X Register 
Temporary Y Register 
Number of Matches 
Pattern for Blinking LEDs on A 
Pattern for Blinking LEDs on B 
Tone Frequency Constant 
Correct Digits Correct Place 



> Random Numbers 



* Up to 9 Digits of Numbers to Guess 



Up to 9 Digits 



Fig. 9.6: Low Memory Map 
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AOOO 

AOOl 

A002 

AO03 

A004 

A005 

A006 

A007 

A008 

A009 

AOOA 

AOOB 

AOOC 

AOOD 

AOOE 



A67E 
A67F 



ACOO 
ACOl 
AC02 



PORT1B 



PORTIA 



DDR1B 



DDR1A 



TILL 



T1CH 



ACR 



IER 



IRQVECL 



IRQVECH 



PORT3B 



DDR3B 





Fig. 9.7: High Memory Map 
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00 


ORB (PB0TOPB7) 


01 


ORA(PA0TOPA7) 


02 


DDR B 


03 


DDR A 


04 


T1L-L/T1C-L 


05 


T1C-H 


06 


T1L-L 


07 


T1L-H 


08 


T2L-L/T2C-L 


09 


T2C-H 


OA 


SR 


OB 


ACR 


OC 


PCR (CA1,CA2,CB2,CB1) 


OD 


IFR 


OE 


IER 


OF 


ORA 



I/O data, port A 

Used for control-affects handshake 
Data direction registers 



> Timer 1 




Timer 2 



Function control 



Interrupt control 



Output register A 

(does not affect handshake) 



Fig. 9.8: 6522 VIA Memory Map 



dresses "A67E" and "A67F" (see Figure 9.7) access to this protected 
area of memory must be authorized. This is performed by the AC- 
CESS subroutine, which is part of the SYM monitor: 

JSR ACCESS 

Next, the new interrupt vector can be loaded at the specified location. 
The value "03EA" is entered at address IRQVEC: 



LDA #$EA 
STA IRQVECL 
LDA #$03 
STA IRQVECH 



Low interrupt vector 
High interrupt vector 
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Now the internal registers of the 6522 VIA #1 must be conditioned 
to set up the interrupts. The interrupt-enable register (IER) will enable 
or disable interrupts. Each bit position in the IER matches the cor- 
responding one in the interrupt flag register (IFR). Whenever a bit 
position is "0," the corresponding interrupt is disabled. Bit 7 of IER 
plays a special role. (See Figure 9.10.) When IER bit 7 is "0," each 
"1" in the remaining bit positions of IER wil clear the corresponding 
enable flag. When IER bit 7 is "1," each "1" written in IER will play 
its normal role and set an enable. All interrupts are, therefore, disa- 
bled by setting bit 7 to "0" and all remaining bits in the IER to ones: 

LDA #$7F 
STA IER 

Next, bit 6, which corresponds to the timer 1 interrupt, is enabled. In 
order to do this, bit 7 of IER is set to "1," as is bit 6: 

LDA #$C0 
STA IER 

Next, timer 1 will be set in the "free-running mode." Remember that, 
with the 6522, the timer can be used in either the "one-shot" mode or 
the "free-running mode." Bits 6 and 7 of the auxiliary control 
register are used to select timer 1 operating modes. (See Figure 9.11.) 
In this instance, bit 7 is set to "0" and bit 6 is set to "1": 

LDA #$40 
STA ACR 

Prior to using the timer in the output mode, its counter-register must 
be loaded with a 16-bit value. This value specifies the duration of the 
square pulse to be generated. The maximum value "FFFF" is used 
here: 

LDA #$FF 
STA TILL 
STA TICH 

The actual wave form from timer 1 is shown in Figure 9.12. In order 
to compute the exact duration of the pulse, note that the pulse dura- 
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^ START ^ 



1 




INITIALIZE 



GET KEY NUMBER 



NUMBER DIGITS = 
KEY NUMBER 



TEMP = NUMBER 
DIGITS 



n 



DIGIT (TEMP) = 
RANDOM NUMBER 



TEMP = TEMP - 




TEMP = NUMBER 
DIGITS 



GET KEY NUMBER 



GUESS (TEMP) = 
KEY NUMBER 



TEMP = TEMP - 1 




Fig. 9.9: Detailed Mindbender Flowchart 
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Fig. 9.9: Detailed Mindbender Flowchart (Continued) 
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7 6 5 4 3 2 1 



IFR 


IRQ 






















- T2 - 


- CB1 - 


- CB2 - 


- SR - 


- CA1 - 


- CA2 - 


IER 


SET/ 
CLEAR 
CONTROL 


- Tl - 



Fig. 9.10: Interrupt Registers 



tion will alternate between n + 1.5 cycles and n + 2 cycles, where n is 
the initial value loaded in the counter register. 
Next, interrupts are enabled: 

CLI 

and the three ports used by this program are configured in the ap- 
propriate direction: 

STA DDR1A Output 
STA DDR IB Output 
STA DDR3B Output 

All LEDs are then cleared: 



ACR7 

OUTPUT 
ENABLE 


ACR6 

INPUT 
ENABLE 


MODE 







(ONE-SHOT) 


GENERATE TIME OUT INT WHEN Tl LOADED PB7 DISABLED 





1 

(FREE RUN) 


GENERATE CONTINUOUS INT PB7 DISABLED 


1 




(ONE-SHOT) 


GENERATE INT AND OUTPUT PULSE ON PB7 EVERYTIAAE Tl IS 
LOADED = ONE-SHOT AND PROGRAMMABLE WIDTH PULSE 


1 


1 

(FREE RUN) 


GENERATE CONTINUOUS INT AND SQUARE WAVE 
OUTPUT ON PB7 



Fig. 9.1 1: 6522 Auxiliary Control Register Selects Timer 1 Operating Modes 
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N + 1.5 

h* H 

(N) (N - 1) (0) (.5) 

I - »l« - I I - 




Fig. 9.12: Timer 1 in Free Running Mode 

KEY1 LDA #0 

STA PORTIA 
STA PORT1B 

and the blink masks are initially set to all 0's: 

STA MASKA 
STA MASKB 

LED 10 is now turned on in order to signal to the player that he or she 
should specify the number of digits to be guessed: 

LDA #%00000010 Select LED 10 
STA PORT IB Turn it on 

The key pressed is read using the usual GETKEY routine: 

JSR GETKEY Get # digits 

A software filter is implemented at this point. The value of the key 
read from the keyboard is validated as falling within the range "1" 
through "9." If it is greater than 9, or less than 1 , the entry is ignored: 

CMP #10 
BPL KEY1 
CMP #0 
BEQ KEY1 
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Once validated, the length specified for the sequence is stored at 
memory location DIGITS: 

STA DIGITS 

A sequence of random numbers must now be generated. 

Generating a Sequence of Random Numbers 

The initial random number is obtained from the counter and used to 
start the random number generator. The theory behind this technique 
has been described before. 

Locations RND + 1, RND + 4, and RND + 5 are seeded with the 
same number: 

LDA TILL 
STA RND+ 1 
STA RND + 4 
STA RND +5 

Then a random number is obtained using the RANDOM subroutine: 

LDY DIGITS Get # of digits to guess 
DEY Count to 

RAND JSR RANDOM Filling them with values 

The resulting random number is set to a BCD value which guarantees 
that the last digit will be between and 9: 

SED 

ADC #00 Decimal Adjust 

CLD 

It is then truncated to the lower 4 bits: 
AND #$00001111 

Once the appropriate random digit has been obtained, it is saved at 
the next location of the digit table, using index register Y as a running 
pointer: 
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STA DIGO.Y 

The counter Y is then decremented, and the loop executed until all re- 
quired digits have been generated: 

DEY 

BPL RAND 

Collecting the Player's Guesses 

Index register X will serve as a running pointer for the ENTRY 
table used to collect the player's guess. It is initialized to the value 
"0," and stored at memory location XTEMP: 

EXTRA LDA #0 Clear pointer 

STA XTEMP 

LEDs 10 and 11 are then turned on to signal the player that he or she 
may enter his or her sequence: 

LDA #$00000110 
STA PORT1B 

The key pressed by the player is read with the usual GETKEY routine: 

KEY2 JSR GETKEY 

If the key pressed is greater than 9, it is interpreted as a request to 
restart the game: 

CMP #10 
BPL KEY1 

Otherwise, the value of the index register X is retrieved from memory 
location XTEMP and is used to perform an indexed store of the ac- 
cumulator to the appropriate location in the ENTRY table: 

LDX XTEMP 

STA ENTRY0.X Store guess in table 
The running pointer is then incremented, and stored back in memory: 
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INX 

STX XTEMP 

Then, the value of the running pointer is compared to the maximum 
number of digits to be fetched from the keyboard and, as long as this 
number is not reached, a loop occurs back to location KEY2: 

CPX DIGITS All numbers fetched? 
BNE KEY2 If not, get another 

Once the player has entered his or her sequence, the digits must be 
compared to the computer-generated sequence. In anticipation of the 
display of a possible win the LEDs on the board are blanked and the 
masks are cleared: 

LDX #0 
STX PORTIA 
STX PORT IB 
STX MASKA 
STX MASKB 

Two locations in memory will be used to contain the number of cor- 
rect digits and the number of correct digits in the correct location. 
They are initially cleared: 

STX CNT Number of matches 

STX CNT1 Number of correct digits 

Each entry of the DIGO table will now be compared in turn to all en- 
tries of the ENTRYO table. Each digit is loaded from the DIGIT table 
and immediately compared to the corresponding ENTRY contents: 

DIGLP LDA DIGO.X 

CMP ENTRY0,X 

If it is not the right digit at the right place, there is no exact match. We 
will then check to see if the digit appears at any other place within the 
ENTRY table: 

BNE ENTRYCMP 
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Otherwise, one more exact match is recorded by incrementing location 
CNT1, and the next digit is examined: 

INC CNT1 
BNE NEXTDIG 

Let us examine now what happens when no match has occurred. The 
digit (of the number to be guessed) which has just been read and is 
contained in the accumulator should be compared to every digit within 
the ENTRY table. Index register Y is used as a running pointer, and 
the contents of the accumulator are compared in turn to each of the 
digits in ENTRY: 

ENTRYCMP LDY #0 
ENTRYLP CMP ENTRYO.Y 
BNE NEXTENT 

If a match is found, memory location CNT is incremented and the 
next digit is examined: 

INC CNT 
BNE NEXTDIG 

Otherwise, index register Y is incremented. If the end of the sequence 
is reached, exit occurs to NEXTDIG. Otherwise a branch back occurs 
to the beginning of the loop at location ENTRYLP: 

NEXTENT INY Increment guess # pointer 

CPY DIGITS All tested? 
BNE ENTRYLP No: try next one 

The next digit in table DIG must then be examined. The running 
pointer for DIG is contained in index register X. It is incremented and 
compared to its maximum value: 

NEXTDIG INX Increment digit # pointer 

CPX DIGITS All digits checked 

If the limit has not been reached, a branch occurs back to the begin- 
ning of the outer loop at location DIGLP: 
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BNE DIGLP 

At this point, we are ready to turn on the LEDs to display the results 
to the player. 

Displaying the Results to the Player 

The total number of LEDs which must be turned on is obtained by 
adding the contents of CNT to CNT1: 

CLC Get ready for add 

LDA CNT 
ADC CNT1 

The total is contained in the accumulator and transferred into index 
register Y where it will be used by the LITE routine: 

TAY 

JSR LITE 

The operation of the LITE routine will be described below. Its effect is 
to fill the accumulator with the appropriate number of ones in order 
to turn on the appropriate LEDs. 

The pattern created by the LITE subroutine is then stored in the 
mask: 

STA PORTIA 

For the special case in which the result is 9, the carry bit will have been 
set. This case is explicitly tested: 

BCC CC If carry 0, don't light PBO. 

and if the carry had been set to 1 , Port B will be set appropriately so 
that LED #9 is turned on: 

LDA #1 Turn PBO on 

STA PORT1B 

Recall that once masks A and B have been set up, they will 
automatically be used by the interrupt handling routine which will 
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cause the appropriate LEDs to blink. 

CC LDY CNT1 

JSR LITE 
STA MASKA 
BCC TEST 
LDA #01 
STA MASKB 

The program must now test for a win or lose situation. 
Testing for a Win or Lose Situation 

The number of correct digits in the right places is contained in 
CNT1. We will simply compare it to the length of the sequence to be 
guessed: 

TEST LDX CNT1 

CPX DIGITS 

If these numbers are equal, the player has won: 

BEQ WIN 

Otherwise, a low tone will be sounded. The tone duration constant is 
set to "72," and its frequency value to "BE": 

BAD LDA #$72 

STA DUR 
LDA #$BE 

The TONE subroutine is then used to generate the tone, as usual: 
JSR TONE 

Then a return occurs to the beginning of the program: 
BEQ ENTER 

If a win has occurred, a high-pitched tone will be generated. Its dura- 
tion constant is set to "FF" and its pitch is controlled by setting the 
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frequency constant to "54": 

WIN LDA #$FF 

STA DUR 
LDA #$54 

As usual, the TONE subroutine is used to generate the tone: 

JSR TONE 
The game is then restarted: 

JMP KEY1 

The Subroutines 

Four routines are used by this program. They are: LITE, RAN- 
DOM, TONE, and INTERRUPT HANDLER. The RANDOM and 
TONE routines have been described in previous chapters and will not 
be described again here. 

LITE Subroutine 

When entering this subroutine, index register Y contains the 
number of LEDs which should blink. In order to make them blink it 
is necessary to load the appropriate pattern into the mask patterns 
called MASKA and MASKB. The appropriate number of 1 's has to be 
set in these two locations. A test is first made for the value "0" in Y. 
If that value is found, the accumulator is cleared, as well as the carry 
bit (the carry bit will be used as an indicator for the fact that Y con- 
tained the value "9"): 

LITE BNE STRTSH Test Y for zero 

LDA #0 
CLC 
RTS 

Otherwise, the accumulator is initially cleared, and the appropriate 
number of l's is shifted left into the accumulator through the carry 
bit. They are introduced one at a time by setting the carry bit, then 
performing a left shift into A. Each time, index register Y is decre- 
mented and the loop is executed again as long as Y is not "0": 
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SHIFT 



LDA #0 
SEC 
ROL A 
DEY 

BNE SHIFT 
RTS 



Shift into position 



Loop 



Note that a rotation to the left is used rather than a shift. If Y did 
contain the value "9," the accumulator A would be filled with l's and 
the carry bit would also contain the value "1" upon leaving the 
subroutine. 

The Interrupt Handler 

This subroutine complements the LEDs each time an interrupt is 
received, i.e., every time timer 1 runs out. It is located at memory ad- 
dresses "03EA" and following. Since the accumulator is used as a 
working register by the subroutine, it must be preserved upon entry 
and pushed into the stack: 



The contents of Ports 1A and IB will be read and then complemented. 
Recall that there is no complementation instruction on the 6502, so 
an exclusive OR will be used instead. MASKA and MASKB specify 
the bits to be complemented: 



LDA PORTIA 
EOR MASKA 
STA PORTIA 
LDA PORT IB 
EOR MASKB 
STA PORT1B 



Also recall that the interrupt bit in the 6522 has to be cleared explicitly 
after every interrupt. This is done by reading the latch: 



Finally, the accumulator is restored, and a return occurs to the main 
program: 



PHA 



LDA TILL 
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PLA 
RTI 



SUMMARY 

In this program, we have used two new hardware resources in the 
6522 I/O chip: the interrupt control and the programmable interval 
timer. Interrupts have been used to implement simultaneous processing 
by blinking the LEDs while the program proceeds, testing for a win or 
lose situation. 



Exercise 9.1: Could you implement the same without using interrupts? 



(MINDBENDER PROGRAM 

( PLAYS MINDBENDER GAME! USER SPECIFIES LENGTH OF NUMBER 
(TO BE GUESSED. THEN GUESSES DIGITS. AND COMPUTER TELLS 
.PLAYER HOW MANY OF THE DIGITS GUESSED WERE RIGHT, AND 
( HOW MANY OF THOSE CORRECT DIGITS WERE IN THE CORRECT 
( PLACE . UNTIL THE PLAYER CAN GUESS THE NUMBER. ON THE 
.-BOARD, BLINKING LEDS INDICATE CORRECT VALUE S CORRECT 
(DIGIT, AND NONBLINKING LEDS SHOW CORRECT DIGIT VALUE. 
( BUT WRONG PLACE. 

( THE BOTTOM ROW OF LEDS IS USED TO SHOW THE MODE OF 

( THE PROGRAM: IF THE LEFTMOST LED IS LIT. THE 

i PROGRAM EXPECTS THE USER TO ENTER THE LENGTH 

(OF THE NUMBER TO BE GUESSED. IF THE TWO LEFTMOST 

(LEDS ARE LIT. THE PROGRAM EXPECTS A GUESS. 

} THE PROGRAM REJECTS UNSUITABLE VALUES FOR A NUMBER 

(LENGTH, WHICH CAN ONLY BE 1-9. A VALUE OTHER THAN 

( 0-9 FOR A GUESS RESTARTS THE GAME. 

(A LOW TONE DENOTES A BAD GUESS, A HIGHT TONE , A WIN. 

( AFTER A WIN. THE PROGRAM RESTARTS. 

(AN INTERRUPT ROUTINE IS USED TO BLINK THE LEDS ♦ 





.=$200 




GETKEY 


=$100 




ACCESS 


=$8B86 


(ROUTINE TO UNPROTECT SYS MEM 


DIGITS 


=$00 


(NUMBER OF DIGITS TO BE GUESSED 


DUR 


=$01 


(TONE DURATION CONSTANT 


XTEMP 


=$02 


(TEMP STORAGE FOR X REG. 


YTEMP 


=$03 


(TEMP STORAGE FOR Y REG. 


CNT 


= $04 


(KEEPS TRACK OF # OF MATCHES 


MASKA 


=$05 


(CONTAINS PATTERN EOR'ED WITH LED 
(STATUS REGISTER A TO CAUSE BLINK 


MASKB 


=$04 


(LED PORT B BLINK MASK 


FREQ 


=$07 


(TEMP STORAGE FOR TONE FREQUENCY 


CNT1 


=$08 


(# OF CORRECT DIGITS IN RIGHT PLAC 


RND 


= $09 


(FIRST OF RANDOM * LOCATIONS 


DIGO 


= $0F 


(FIRST OF 9 DIGIT LOCATIONS 


ENTRYO 


= $18 


(FIRST OF 9 GUESS LOCATIONS 


IRGVECL 


=$A67E 


(INTERRUPT VECTOR LOW ORDER BYTE 


IROVECH 


=$A67F 


( . » AND HIGH ORDER 



(6522 VIA *1 REGISTERS! 



Fig. 9. 1 3: Mindbender Program 
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IER 


-tAOOE 


f INTERRUPT ENABLE REGISTER 




ACR 


=$AOOB 


(AUXILIARY CONTROL REGISTER 




TILL 


=*A004 


( TIMER 1 LATCH LOW 




T1CH 


=$A005 


( TIMER 1 COUNTER HIGH 




PORTIA 


=*A001 


(VIA 1 PORT A IN/OUT REG 




DDR 1 A 


=$A003 


(VIA 1 PORT A DATA DIRECTION 


REG. 


PORT1B 


=*AOOO 


(VIA 1 PORT B IN/OUT REG 




DDR IB 


=$A002 


(VIA 1 PORT B DATA DIRECTION 


REG. 


P0RT3B 


=*AC00 


(VIA 3 PORT B IN/OUT REG 




DDR3B 


=*AC02 


(VIA 3 PORT B DATA DIRECTION 


REG 



f ROUTINE TO SET UP 
(L.E.D. FLASHING 



VARIABLES AND INTERRUPT TIMER FOR 



0200! 


20 


86 


8B 


JSR 


ACCESS 


(UNPROTECT SYSTEM MEMORY 


0203! 


A9 


EA 




LDA 


**EA 


( LOAD LOW INTERRUPT VECTOR 


0205t 


8D 


7E 


A6 


STA 


IRQVECL 


f . ♦ . AND STORE AT VECTOR LOCATION 


0208! 


A9 


03 




LDA 


#*03 


(LOAD INTERRUPT VECTOR.... 


020A! 


8D 


7F 


A6 


STA 


IRQVECH 


( . . . AND STORE . 


020D: 


A9 


7F 




LDA 


#$7F 


( CLEAR INTERRUPT ENABLE REGISTER 


020F! 


8D 


OE 


AO 


STA 


IER 




0212! 


A9 


CO 




LDA 


**C0 


( ENABLE TIMER 1 INTERRUPT 


0214: 


8D 


OE 


AO 


STA 


IER 




0217: 


A9 


40 




LDA 


♦ $40 


(ENABLE TIMER 1 IN FREE-RUN MODE 


0219: 


8D 


OB 


AO 


STA 


ACR 




021c: 


A9 


FF 




LDA 


*$FF 




021E: 


8D 


04 


AO 


STA 


TILL 


(SET LOW LATCH ON TIMER 1 


0221 : 


8D 


05 


AO 


STA 


T1CH 


(SET LATCH HIGH S START COUNT 


0224 : 


58 






CLI 




(ENABLE INTERRUPTS 


0225: 


8D 


03 


AO 


STA 


DDR1A 


(SET VIA 1 PORT A FOR OUTPUT 


0228: 


8D 


02 


AO 


STA 


DDR IB 


(SET VIA 1 PORT B FOR OUTPUT 


022B: 


8D 


02 


AC 


STA 


DDR3B 


(SET VIA 3 PORT B FOR OUTPUT 


022E: 


A9 


00 




KEY1 LDA 


#0 


(CLEAR LEDS 


0230! 


8D 


01 


AO 


STA 


PORTIA 




0233 i 


8D 


00 


AO 


STA 


P0RT1B 




0236! 


85 


05 




STA 


MASKA 


(CLEAR BLINK MASKS 


0238: 


85 


06 




STA 


MASKS 












(ROUTINE TO GET NUMBER OF DIGITS TO GUESS r THEN 










(FILL THE DIGITS WITH 


RANDOM NUMBERS FROM 0-9 


023A: 


A9 


02 




LDA 


♦X00000010 (LIGHT LED TO SIGNAL USER TO 


023C: 


8D 


00 


AO 


STA 


P0RT1B 


(INPUT OF # OF DIGITS NEEDED. 


023F: 


20 


00 


01 


JSR 


GETKEY 


(GET # OF DIGITS 


0242! 


C9 


OA 




CMP 


♦ 10 


(IF KEY* >9r RESTART GAME 


0244: 


10 


E8 




BPL 


K'EYl 




0246: 


C9 


00 




CMP 


*0 


(CHECK FOR DIGITS TO GUESS 


0248: 


FO 


E4 




BEQ 


KEY1 


(...0 DIGITS NOT ALLOWED 


024A: 


85 


00 




STA 


DIGITS 


(STORE VALID # OF DIGITS 


024C: 


AD 


04 


AO 


LDA 


TILL 


(GET RANDOM #> 


024F: 


85 


OA 




STA 


RND+1 


(USE IT TO START RANDOM 


0251 : 


85 


OD 




STA 


RND+4 


(NUMBER GENERATOR. 


0253: 


85 


OE 




STA 


RND+5 




0255! 


A4 


00 




LDY 


DIGITS 


(GET # OF DIGITS TO BE GUESSED* 


0257: 


88 






DEY 




(..AND COUNT TO 0. FILLING 














(THEM WITH VALUES . 


0238: 


20 


FF 


02 


RAND JSR 


RANDOM 


(GET RANDOM VALUE FOR DIGIT 


025B: 


F8 






SEE! 






025C: 


69 


00 




ADC 


#00 


(DECIMAL ADJUST 


025e: 


D8 






CLD 






025F: 


29 


OF 




AND 


♦XOOOOllll ( KEEP DIGIT <10 


0261: 


99 


OF 


00 


STA 


DIGCY 


(SAVE IT IN DIGIT TABLE. 


0264: 


88 






DEY 






0265: 


10 


Fl 




BPL 

! 


RAND 


(FILL. NEXT DIGIT 



Fig. 9. 1 3: Mlndbender Program (Continued) - 
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J ROUTINE TO FILL GUESS TABLE W/USERS'S GUESSES 



0267 * 


Ay 






FNTER 


LB A 


#0 


f CLEAR ENTRY TABLE POINTER 


0269 ! 


85 


02 






STA 


XTEMP 




026B! 


A9 


06 






LBA 


♦X00000110 ( LET USER KNOW THAT GULbbt. 


026D! 


OEI 


00 


AO 




ORA 


PORT IB 


( SHOULD BE INPUT . . . 


0270 : 


8D 


00 


AO 




STA 


PORT IB 


«... WITHOUT CHANGING ARRAY 


0273! 


20 


00 


01 


KEY2 


JSR 


GETKEY 


(GET GUESS 


02761 


C9 


OA 






CMP 


#10 


(IS IT GREATER THAN 9? 


0278! 


10 


B4 






BPL 


KEY1 


(IF YES, RESTART GAME 


027A: 


A6 


02 






LDX 


XTEMP 


( GET POINTER FOR INDEXING 


027C! 


95 


18 






STA 


ENTRYO 


X ( STORE GUESS IN TABLE 


027E : 


E8 








INX 




(INCREMENT POINTER 


027FI 


86 


02 






STX 


XTEMP 


( CORRECT * OF GUESSES FETCHED'! 


0281 : 


E4 


00 






CPX 


DIGITS 


0283! 


DO 


EE 






BNE 


KEY 2 


(IF NOT, GET ANOTHER 



(THIS ROUTINE COMPARES USERS '8 GUESSES WITH DIGITS 
(OF NUMBER TO GUESS. FOR EACH CORRECT DIGIT IN THE 
(CORRECT PLACE, A BLINKING LED IS LIT. AND FOR EACH 
(CORRECT DIGIT IN THE WRONG PLACE, A NONBLINKING 











(LED IS 


LIT. 






0285! 


A2 


00 




( 


LDX 


♦ 


CLEAR FOLLOWING b 1 UhAbLb . 


0287! 


8E 


01 


AO 




STX 


PORTIA 


( LEDS 


028A! 


8E 


00 


AO 




STX 


P0RT1B 




028D! 


86 


05 






STX 


MASKA 


BLINK MASKS 


028F! 


86 


06 






STX 


MASKS 




0291 ! 


86 


04 






STX 


CNT 


COUNT OF MATCHES 


0293! 


86 


08 






STX 


CNT1 


iini lilT fiET £!■ T (''LIT fl T I*?. T "f C 

l.UUN 1 Ur hlbnl JUJ.L. 1 1 lo 


0295! 


B5 


OF 




DIGLP 


LDA 


DIGO,X 


• ■ j-i a r. -i r> 'r riT(>TT rtL" M- ["flD PI1M[>API>C! 

tLOAD .tbT DIul I Uh # r Lih UUrll 


0297 ! 


D5 


18 






CMF' 


DilTD V /\ _ V 

LN 1 K Y \f r a 


iPTfjuT rji irqc/f;i TfilJ r p| flru'? 
7 T\ i. UH 1 uuc.oo/ r\iun i i i_. i i 1... . 


0299! 


no 


04 






BNE 


ENTRYCMF 


(NO! IS GUESS RIGHT DIGIT/ 
















WRONG PLACE? 


029B! 


E6 


08 






INC 


CNT1 


ONE MORE RIGHT GUESS /RIGHT PLACE 


029D : 


DO 


10 






BNE 


NEXTDIG 


(EXAMINE NEXT DIGIT OF NUMBER 


029F! 


AO 


00 




ENTRYCMF 


LBY 


*0 


(RESET GUESS* PTR FOR COMPARES 


02A1! 


II 9 


18 


00 


ENTRYLF" 


CMP 


ENTRYO, Y 


(RIGHT DIGIT/WRONG PLACE? 


02A4! 


DO 


04 






BNE 


NEXTENT 


(NO, SEE IF NEXT DIGIT IS. 


02A6! 


E6 


04 






INC 


CNT 


( ONE MORE RIGHT DIGIT/WRONG PLACE 


02A8 ! 


DO 


05 






BNE 


NEXTDIG 


(EXAMINE NEXT DIGIT OF NUMBER 


02AA! 


CB 






NEXTENT 


INY 




(INCREMENT GUESS* PTR 


02AB! 


C4 


00 






CPY 


DIGITS 


(ALL GUESSES TESTED? 


02AD! 


DO 


F2 






BNE 


ENTRYLF" 


(NO, TRY NEXT GUESS. 


02AF ! 


E8 






NEXTDIG 


INX 




(INCREMENT DIGIT* PTR 


02B0! 


E4 


00 






CPX 


DIGITS 


(ALL DIGITS EVALUATED? 


02B2! 


DO 


El 






BNE 


DIGLP 


(NO, CHECK NEXT DIGIT. 


02B4! 


18 








CLC 




(GET READY FOR ADD. . . . 


02B5! 


A5 


04 






LDA 


CNT 


(OF TOTAL MATCHES TO DETERMINE 


02B7! 


65 


08 






ADC 


CNT1 


(NUMBER OF LEDS TO LIGHT 


02B9! 


AS 








TAY 




(XFER A TO Y FOR 'LIGHT' ROUTINE 


02BA! 


20 


Fl 


02 




JSR 


LITE 


(GET PATTERN TO LIGHT LEDS 


02BD! 


8D 


01 


AO 




STA 


PORTIA 


(TURN LEDS ON 


02C0! 


90 


05 






BCC 


CC 


(IF CARRY-O, DON'T LIGHT PBO 


02C2! 


A9 


01 






LDA 


♦ 1 




02C4! 


8D 


00 


AO 




STA 


P0RT1B 


(TURN PBO ON. 


02C7! 


A4 


08 




CC 


LDY 


CNT1 


(LOAD * OF LEDS TO BLINK 


02C9! 


20 


Fl 


02 




JSR 


LITE 


( GET PATTERN 


02CC! 


85 


05 






STA 


MASKA 


(START TO BLINK LEDS 


02CE! 


90 


04 






BCC 


TEST 


(IF CARRY =0, PBO WON'T BLINK 


02D0! 


A9 


01 






LDA 


#1 




02D2! 


85 


06 






STA 


MASKS 





(ROUTINE TO TEST FOR WIN BY CHECKING IF * OF CORRECT 



Fig. 9.13: Mindbender Program (Continued) 
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(DIGITS IN CORRECT PLACES • NUMBER OF DIGITS. IF WIN* 

(A high pitched sound is generated, and if any 

(DIGIT IS WRONG, A LOU SOUND IS GENERATED. 



02D4! 


A6 


08 




TEST 


LDX 


CNT1 LOAI 


NUMBER OF CORRECT DIGITS 


02H6! 


E4 


00 






CPX 


DIGITS 


( ALL GUESSES CORRECT? 


02D8! 


FO 


OB 






BEQ 


WIN ( 


IF YES, PLAYER WINS 


02DA: 


A9 


72 




BAD 


LDA 


**72 




02DC! 


85 


01 






STA 


DUR ( 


SET UP LENGTH OF LOW TONE 


02DE: 


A9 


BE 






LDA 


#*be ( 


TONE VALUE FOR LOU TONE 


O2E0: 


20 


12 


03 




JSR 


TONE ; 


SIGNAL BAD GUESSES W/TONE 


02E3: 


FO 


82 






BEQ 


ENTER ( 


GET NEXT GUESSES 


02E5 : 


A9 


FF 




WIN 


LDA 


#*FF ; 


DURATION FOR HIGH TONE 


02E7t 


85 


01 






STA 


DUR 




02E9S 


A9 


54 






LDA 


#$54 ( 


TONE VALUE FOR HIGH TONE 


02EB: 


20 


12 


03 




JSR 


TONE ( 


SIGNAL WIN 


02ee: 


4C 


2E 


02 




JMP 


KEY! ( 


RESTART GAME 



(routine to fill accumulator with 'i' bits, starting 
sat the low order end, up to and including the 
(bit position corresponding to the * of leds to 
(be lit or set to blinking. 



02F1 ! DO 04 

02F3t A9 00 

02F5! 18 

02F6! 60 

02F7: A9 00 

02F9! 38 

02FA! 2A 
02FB! 



LITE 



STRTSH 
SHIFT 



88 



BNE STRTSH 
LDA #0 
CLC 
RTS 

LDA #0 

SEC 
ROL A 
DEY 



02FC: DO FB 
02FE! 60 



BNE 
RTS 



SHIFT 



(IF Y NOT ZERO, SHIFT ONES IN 
S SPECIAL CASE! RESULT IS NO ONE J 



( CLEAR A SO PATTERN WILL SHOW 
( MAKE A BIT HIGH 
!SHIFT IT TO CORRECT POSITION 
( BY LOOPING TO # OF GUESS/DIGIT 
(MATCHES, AS PASSED IN Y 
(LOOP 'TIL DONE 



( RANDOM NUMBER GENERATOR 

( USES NUMBERS A,B,C,D,E,F STORED AS RND THROUGH 
tRND+S: ADDS B+E+F+l AND PLACES RESULT IN A, THEN 
(SHIFTS A TO B, B TO C, ETC. THE NEW RANDOM NUMBER 
(WHICH IS BETWEEN AND 255 INCLUSIVE IS IN THE 
( ACCUMULATOR ON EXIT 



02FF: 


38 




RANDOM SEC 




(CARRY 


ADDS VALUE 1 


0300! 


A5 


OA 


LDA 


RND+1 


(ADD A 


B,E AND CARRY 


0302! 


65 


on 


ADC 


RND+4 






0304: 


65 


OE 


ADC 


RND+5 






0306! 


85 


09 


STA 


RND 






0308: 


A2 


04 


LDX 


*4 


(SHIFT 


NUMBERS OVER 


030A: 


B5 


09 


RPL LDA 


RND , X 






030c: 


95 


OA 


STA 


RND+1 , X 






030E: 


CA 




DEX 








030F: 


10 


F9 


BPL 


RPL 






0311 : 


60 




RTS 









(TONE GENERATOR ROUTINE. 

(DURATION OF TONE (NUMBER OF CYCLES TO CREATE ) 
(SHOULD BE IN 'DUR' ON ENTRY, ANIl THE NOTE VALUE 
( < FREQUENCY ) IN THE ACCUMULATOR. 



0312! 85 07 
0314: A9 FF 



TONE 



0316: 
0319: 

031b: 
031D : 



8D 00 AC 
A9 00 
A6 01 
A4 07 



STA FREQ 
LDA #*FF 
STA P0RT3B 
LDA #*00 
LDX DUR 
LDY FREQ 



Fig. 9.13: Mindbender Program (Continued) 
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031F ! 


68 






FLl UfcY 




0320: 


18 






CLC 




0321! 


90 


00 




BCC .+2 




0323! 


DO 


FA 




BNE FLl 




0325! 


49 


FF 




EOR #*FF 




0327! 


8D 


00 


AC 


STA P0RT3B 




032A! 


CA 






DEX 




032B! 


DO 


FO 




BNE FL2 




032D! 


60 






RTS 












; 

* INTERRUPT-HANDLING 


ROUTINE 










COMPLEMENTS LEDS AT 


EACH INTERRUPT 










; 

. = *3EA 


f LOCATE ROUTINE IN HIGH MEMORY 


03EA! 


48 






PHA 


rSAVE ACCUMULATOR 


03EB! 


AD 


01 


AO 


LDA PORTIA 


f GET PORT FOR COMPLEMENTING 


03EE! 


45 


05 




EOR MASKA 


? COMPLEMENT NECESSARY BITS 


03F0! 


8D 


01 


AO 


STA PORTIA 


r STORE COMPLEMENTED CONTENTS 


03F3! 


AD 


00 


AO 


LDA P0RT1B 


»D0 SAME WITH PORTIB 


03F6! 


45 


06 




EOR MASKS 




03FB! 


8D 


00 


AO 


STA PORTIB 




03FB! 


AD 


04 


AO 


LDA TILL 


i CLEAR INTERRUPT BIT IN VIA 


03FE! 


68 






PLA 


? RESTORE ACCUMULATOR 


03FF! 


40 






RTI 


(DONE, RESUME PROGRAM 



SYMBOL TABLE! 



GETKEY 


0100 


ACCESS 


8B86 


DIGITS 


0000 


DUR 


0001 


XTEMP 


0002 


YTEMP 


0003 


CNT 


0004 


MASKA 


0005 


MASKS 


0006 


FREQ 


0007 


CNT1 


0008 


RND 


0009 


DIGO 


OOOF 


ENTRYO 


0018 


IRQVECL 


A67E 


IRQVECH 


A67F 


IER 


AOOE 


ACR 


AOOB 


TILL 


A004 


T1CH 


A005 


PORTIA 


A001 


DDR1A 


A003 


PORTIB 


AOOO 


DDR1B 


A002 


P0RT3B 


ACOO 


DDR3B 


AC02 


KEY1 


022E 


RAND 


0258 


ENTER 


0267 


KEY2 


0273 


DIGLP 


0295 


ENTRYCMP 


029F 


ENTRYLP 


02A1 


NEXTENT 


02AA 


NEXTDIG 


02AF 


CC 


02C7 


TEST 


0204 


BAD 


02DA 


WIN 


02E5 


LITE 


02F1 


STRTSH 


02F7 


SHIFT 


02F9 


RANDOM 


02FF 


RPL 


030A 


TONE 


0312 


FL2 


031D 


FLl 


031F 







DONE 



Fig. 9.13: Mlndbondor Program (Continued) 
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10. Complex Evaluation Technique 
(Blackjack) 



INTRODUCTION 

This problem involves a complex evaluation in a simple input/ output 
environment and a very small amount of memory. The program 
generates light and sound effects and operates in real time. 

THE RULES 

The standard game of Blackjack or "21 ," is played in the following 
way. A player attempts to beat the dealer by acquiring cards which, 
when their face values are added together, total more points than 
those in the dealer's hand but not more than a maximum of 21 points. 
If at any time the total of 21 is achieved after only two cards are 
played, a win is automatically declared for the player; this is called a 
Blackjack (the name of the game). Card values range from 1 through 
11. In the standard version of Blackjack the house rules require the 
dealer to "hit" (take a card) if his/her hand equals 16 or fewer points, 
but prohibits him/her from taking a "hit" when his or her hand totals 
17 or more points. 

The version of Blackjack played on the Games Board differs slight- 
ly from the standard game of Blackjack. The single "deck of cards" 
used here contains cards with values from 1 through 10 (rather than 1 
through 11), and the number of points cannot exceed 13 (as opposed to 
21). The dealer in this variation of the game is the computer. 

At the beginning of each hand, one card is dealt to the dealer and 
one to the player. A steady LED on the Games Board represents the 
value of the card dealt to the dealer (the computer). A flashing LED 
represents the card dealt to the player. If the player wants to be "hit" 
(i.e., receive another card) he/she must press key "C." The player 
may hit several times. However, if the total of the player's cards ever 
exceeds 13, the player has lost the round ("busted") and he/she can 
no longer play. It is then the dealer's turn. Similarly, if the player 
decides to pass ("stay"), it becomes the dealer's turn. The dealer plays 
in the following manner: if the dealer's hand totals fewer than 10 
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points, the computer deals itself one more card. As long as the hand 
does not exceed 13, the computer will check to see if it needs another 
card. Like the situation with the player, once the total of the com- 
puter's cards exceeds 13, it loses. No provision has been made for a 
bonus or an automatic win, which occurs whenever the player or the 
dealer gets exactly 13 points with only two cards (a Blackjack). This is 
left as an exercise for the reader. Once the dealer finishes its turn, 
assuming that it does not bust, the values of both hands are compared. 
If the dealer's total is greater than the player's, the player loses. Other- 
wise, the player wins. At the beginning of each series the player is 
allocated 5 chips (5 points). Each loss decreases this total by one chip; 
each win increases it by one. The game is over when the player goes 
broke and loses, or reaches a score of 10 and wins. After each play the 
resulting score is displayed as a number between and 10 on the 
appropriate LED. Each time a player wins a hand, the left-most three 
LEDs of the bottom row light up. If the dealer wins the hand, the right- 
most LEDs light up. (See Figure 10.1.) 
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Fig. 10.1: Indicating the Winner 

A TYPICAL GAME 

When playing a game against the dealer, the player will press key 
"A" to be "hit" (receive an additional card) until either a total of 13 is 
exceeded (a "bust"), or until the player decides that his or her total is 
close enough to 13 that he or she might beat the dealer. When the 
player makes this decision to stay, he or she must press key "C." This 
will start the dealer's turn, and all other keys will then be ignored. 
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LEDs will light up in succession on the board as the computer deals 
itself additional cards until it goes over ten, reaches 13 exactly, or 
busts. Once the computer has stopped playing, any key may be 
pressed; the player's score will be displayed and the winner will be in- 
dicated through lit LEDs on the winner's side. The display will appear 
for approximately one second, then a new hand will be dealt. 

Note that once the value of the computer's hand has reached a total 
greater than or equal to 10, it will do nothing further until a key is 
pressed. Let us follow this "typical game." 

The initial display is shown in Figure 10.2. A steady LED is shown 
as a black dot, while a blinking LED is shown as a half dot. In the in- 
itial hand the computer has dealt itself a 1 and the player a 4. The 
player presses key "A" and receives an additional card. It is a 9. The 
situation is shown in Figure 10.3. It's a Blackjack and the player has 
won. The best the dealer can hope for at this point is to also reach 13. 
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Fig. 10.3: Player Receives A Second Card: Blackjack 
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Let us examine its response. To do this we must pass by hitting "C." 
A moment later LED #3 lights up. The total of the computer's hand 
now is 1 + 3 = 4. It will deal itself another card. A moment later, 
LED #7 lights up. The computer's total is now 4 + 7 = 11. It stops. 
Having a lower total than the player, it has lost. Let us verify it. We 
press any key on the keyboard (for example, "0"). The result appears 
on the display: LEDs 10, 11 and 12 light up indicating a player win, 
and LED #6 lights up, indicating that the player's score has been in- 
crease from 5 to 6 points. This information is shown in Figure 10.4. The 
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Fig. 10.4: End of Turn: Dealer Loses 

LED display then goes blank and a new hand is displayed. When there 
is a draw, none of the LEDs in the bottom row light up and the score 
is not changed. A new hand is dealt. (If the player busts, the dealer 
wins immediately and a computer win is displayed.) 

Let us play one more game. At the beginning of this hand the com- 
puter has dealt itself a 5, and the player has a 6. The situation is shown 
in Figure 10.5. Let us ask for another card. We hit key "A" and are 
given a 7. This is almost unbelievable. We have thirteen again!! The 
situation is shown in Figure 10.6 It is now the computer's turn. Let us 
hit "C." LED #10 lights up. The computer has 15. It has busted. The 
situation is shown in Figure 10.7. Let us verify it. We press any key on 
the keyboard. The three left-most LEDs on the bottom row (LED 10, 
11, and 12) light up and a score of 7 is displayed. This is shown in 
Figure 10.8. A moment later the display goes blank and a new hand is 
started. 
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Fig. 10.5: Second Hand 
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Fig. 10.8: Final Score Is 7 

THE PROGRAM 

The detailed flowchart for the Blackjack program is shown in 
Figure 10.9, and the program is listed at the end of the chapter. As 
usual, a portion of page has been reserved for the variables and flags 
which cannot be held in the internal registers of the 6502. This area is 
shown in Figure 10.10 as a "memory map." These variables or flags 
are: 

DONE: This flag is set to the value "0" at the beginning of the 
game. If the player goes broke, it will be set to the value "11111111." If 
the player scores 10 (the maximum), it will be set to the value "1." 
This flag will be tested at the end of the game by the ENDER routine 
which will display the final result of the game on the board and light 
up either a solid row of LEDs or a blinking square. 

CHIPS: This variable is used to store the player's score. It is initial- 
ly set to the value "5." Every time the player wins a hand it will be in- 
cremented by 1 . Likewise, every time the player loses a hand, it will be 
decremented by 1 . The game terminates whenever this variable reaches 
the value "0" or the value "10." 

MASKA, MASKB: These two variables are used to hold the masks 
or patterns used to blink the LEDs connected respectively to Port A 
and Port B on the Games Board. 

PHAND: It holds the current hand total for the player. It is incre- 
mented every time the player hits (i.e., requests an additional card), 
card). 

CHAND: This variable holds the current hand total for the com- 
puter (the dealer). 
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Fig. 10.9: Blackjack Flowchart 
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TEMP: This is a temporary variable used by the RANDOM routine 
to deal the next card to either player. 

RND through RND + 5: These six locations are reserved for the 
random number generating routine called RANDER. 

WHO WON: This status flag is used to indicate the current winner 
of the hand. It is initially set to "0," then decremented if the player 
loses or incremented if the player wins. 

At the high end of memory the program uses VIA #1, the ACCESS 
subroutine provided by the SYM monitor, and the interrupt- vector at 
address A67E, as shown in Figure 10.11. 

Let us now examine the program operation. For clarity it should be 
followed on the flowchart in Figure 10.9. 
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Fig. 1 0. 1 0: Low Memory Map 
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SYM Subroutine 



> Via Control 
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Fig. 10.11: High Memory Map 
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Program Initialization 

The timer on 6522 VIA #1 will be used to generate the interrupts 
which blink the LEDs. These interrupts will cause a branch to location 
03EA where the interrupt-handling routine is located. The first step is, 
therefore, to load the new value into the interrupt vector, i.e., 
"03EA," at the appropriate memory location: 

BLJACK JSR ACCESS Unprotect system memory 
LDA #$EA Load low interrupt vector 

STA INTVECL 

LDA #$03 High vector 

STA INTVECH 

As described previously, the interrupt-enable register is first loaded 
with the value "01111111," and then with the value "11000000" in 
order to enable the interrupt for timer 1 : 

LDA #$7F Clear timer interrupt-enable 

STA IER 

LDA #$C0 Enable timer 1 interrupt 

STA IER 

Loading the value "7F" clears bits through 6, thereby disabling all 
interrupts. Then, loading the value "CO" sets bit 6, which is the 
interrupt-bit corresponding to timer 1. (See Figure 9.10.) As in the 
previous chapter, timer 1 is put in the free-running mode. It will then 
automatically generate interrupts which will be used to blink the 
LEDs. In order to set it to the free-running mode, bit 6 of the ACR 
must be set to "1": 

LDA #$40 Put timer 1 

STA ACR In free run mode 

The latches for timer 1 are initialized to the highest possible value, i.e., 
FFFF: 

LDA #$FF 

STA TILL Low latch of timer 1 

STA T1CH High latch and start timer 
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Finally, now that the timer has been correctly initialized, interrupts 
are enabled on the processor: 

CLI Enable interrupts 

LED Ports A and B configured as outputs (remember that the ac- 
cumulator still contains the value "FF"): 

STA DDRA 
STA DDRB 

As a precaution, the decimal flag is cleared: 
CLD 

The player's score is initialized to the value 5: 

LDA #5 Set player's score to 5 

STA CHIPS 

The DONE flag is initialized to the value "0": 

LDA #0 Clear done flag 

STA DONE 

The LEDs on the board are cleared: 

STA MASKA 
STA MASKB 

STA PORTA Clear LEDs 

STA PORTB 

And the WHOWON flag is also initialized to "0": 

STA WHOWON Clear flag 

Dealing the First Hand 

We are now ready to play. Let us deal one card to both the dealer 
and the player. The LIGHTR and the BLINKR subroutines will be 
used for that purpose. Each of these subroutines obtains a random 
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number and lights the corresponding LED. LIGHTR lights up a 
steady LED while BLINKR blinks the LED. These two subroutines 
will be described later. We set one LED blinking for the player: 

JSR BLINKR Set random blinking LED 
and we save the first total for the current player's hand: 

STA PHAND Store player's hand 

then we do the same for the computer: 

JSR LIGHTR Set random steady LED 
STA CHAND Store computer's hand 

Hit or Stay? 

We will now read the keyboard. If the player presses "A," this in- 
dicates a requested hit and one additional card must be dealt to the 
player. If "C" is pressed, the player "stays" (passes) and it becomes 
the computer's turn to play. All other keys are ignored. Let us first ob- 
tain the key closure from the keyboard: 

ASK JSR GETKEY 

The key value must now be compared to "A" and to "C": 

CMP #$0A 
BEQ HITPLR 

CMP #$0C Is it computer's turn? 

BEQ DEALER 

If any other key has been pressed, it will be ignored and a new key will 
be read: 

JMP ASK Invalid key, try again 

At this point in the program, we will assume the situation warrants 
a "hit." One more card must be dealt to the player. Let us set one 
more LED blinking. Naturally, the BLINKR subroutine, as well as the 
LIGHTR subroutine, are careful not to deal a card that has already 
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been dealt. How this is achieved will be described later (this is the pur- 
pose of the SETBIT subroutine). 

HITPLR JSR BLINKR Set random LED 

As soon as a new card has been dealt to the player, we compute the 
player's new total for the current hand: 



The new total must be checked against the value "13." As long as the 
player has 13 or less, he or she may play again, i.e., either be hit or 
stay. However, if the player's score exceeds "13," he or she busts and 
loses the play. Let us check: 



It is now the dealer's turn. Since the computer is much faster than the 
player in deciding whether it wants to hit or to stay, we will first slow it 
down to provide more suspense to the game: 

DEALER JSR DELAY 

The delay subroutine also extends the period of time between the suc- 
cessive decisions made by the computer to make the computer appear 
more "human-like." 

Before dealing another card to the computer (the dealer), let us ex- 
amine its total. The house rule is that the dealer's total cannot exceed 
"10." (Naturally, other algorithms are available from Blackjack ex- 
perts.) The computer hand is therefore checked against the value 
"10." If this value is exceeded, a branch occurs to location WINNER 
where the winner will be decided. Otherwise, a new card will be dealt 
to the computer: 



CLC 

ADC PHAND 
STA PHAND 



Tally player's hand 



CMP #14 
BCC ASK 
JMP LOSE 



Check for 13 
Ask if< = 13 
Busted 



LDA CHAND 
CMP #10 
BCS WINNER 



Check hand for limit 
Yes. Decide winner. 
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As long as the hand totals less than "10," the dealer requests a hit. A 
new card is dealt to the dealer in exactly the same way that it was dealt 
previously to the player: 

JSR LIGHTR Set random LED 

The dealer's new total is computed: 

CLC 

ADC CHAND Tally computer's hand 
STA CHAND 

Just as in the case of the player before, it is compared against the value 
"13" to determine whether or not the dealer has busted: 

CMP #14 Is hand<= 13? 

BCC DEALER Yes: another hit? 
JMP WIN Busted: player wins 

If the computer has busted, a jump occurs to location WIN which in- 
dicates a "win" by the player. Otherwise, a branch back to location 
DEALER occurs, where the computer will determine whether or not it 
wants to receive an additional card. Let us now determine the winner. 
Both hands are compared: 

WINNER LDA CHAND 

CMP PHAND Compare hands 

There are three possible cases: equal scores, player wins, and player 
loses. 

BEQ SCORER 
BCC WIN 

In the case that both scores are equal, a jump occurs to location 
SCORER which will display the current status. If the player wins, a 
branch occurs to location WIN and the sequence will be described 
below. First, let us examine what happens when the player loses. 

The Player Loses 
A special flag, called WHOWON, is used to store the status at the 
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end of each play. It is decremented to indicate a loss by the player: 

LOSE DEC WHOWON 

The player's score is decremented: 
DEC CHIPS 

The player's score must be compared to the value "0." If the player's 
score has reached "0," he or she is broke and has lost the game. In 
this case, the DONE flag is set to "11111111;" otherwise, it is not 
changed. Finally a jump occurs to SCORER where the final score will 
be displayed: 

BNE SCORER Player broke? 
DEC DONE Yes: set lose flag 

JMP SCORER Finish game 

Player Has Won 

Similarly, when the player wins, the WHOWON flag is set to "1": 

WIN INC WHOWON 

The score is incremented: 

INC CHIPS 
It is then compared to the value "10": 

LDA CHIPS 

CMP #10 Chips = 10? 

If the maximum score of "10" has been reached, the DONE flag is set. 
BNE SCORER 

INC DONE Set done flag 

Displaying the final status is accomplished by the SCORER routine. 
Remember that the final status will be displayed only at the player's 
request — when any key is pressed on the keyboard. Let us wait for 
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this: 

SCORER JSR GETKEY 

Before displaying the status, all LEDs on the board are turned off: 

LDA #0 
STA MASKA 
STA MASKB 
STA PORTA 
STA PORTB 

The player's score must now be displayed on the board. Let us read it: 

LDX CHIPS 
BEQ ENDER 

If the player has no more chips, a branch occurs to location ENDER 
and the game will be terminated. Otherwise, the score is displayed. 
Unfortunately, LEDs are numbered internally "0" through "7," even 
though they are labeled externally "1" through "8." In order to light 
up the proper LED, the score must therefore first be decremented: 

DEX 

then a special subroutine called SETMASK is used to display the ap- 
propriate LED. On entry to the SETMASK routine, it is assumed that 
the accumulator contains the number of the LED to be displayed. 

TXA 

JSR SETMASK 

Now that the proper mask has been created to display the score, we 
must indicate the winner. If the player won, the three left-most LEDs 
in the bottom row will be lit; if the computer won, the three right-most 
LEDs will be lit. If it was a tie, no LEDs will be lit on the bottom row. 
Let us see who won: 

LDA WHOWON 

BEQ ENDER Tie: do not change LEDs 
BMI SC 



204 



COMPLEX EVALUATION TECHNIQUE 



If the player lost, a branch occurs to address SC. If, on the other 
hand, the player won, the three left-most LEDs in the bottom row are 
lit: 

LDA #$0E Player won: set left LEDs 

JMP SCO 

If the player lost, the three right-most LEDs are lit: 

SC LDA #$B0 Player lost: set right LEDs 

Contained in the accumulator is the appropriate pattern to light the 
bottom row of LEDs, and this is sent to the Games Board: 

SCO ORA PORTB 

STA PORTB 

End of a Play 

The ENDER routine is used to terminate each play. If the score was 
neither "0" nor "10," a new hand will be dealt: 

ENDER JSR DELAY2 

LDA DONE 
BNE ENO 
JMP START 

Otherwise, we check the DONE flag for either a player win or a player 
loss. If the player lost the game, the bottom row of LEDs is lit and the 
program ends: 

ENO BPL EN1 $01: Jump on win condition 

LDA #$BE Solid row of LEDs 

STA PORTB 

RTS Return to monitor 

In the case of a player win, a blinking square is displayed and the pro- 
gram is terminated: 

EN1 LDA #$FF 

STA MASKA 
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LDA #$01 
STA MASKB 
RTS 

Subroutines 

SETBIT Subroutine 

The purpose of this subroutine is to create the pattern required to 
light a given LED. Upon entering the subroutine, the accumulator 
contains a number between "0" and "9" which specifies which LED 
must be lit. Upon exiting the subroutine, the correct bit is positioned 
in the accumulator. If the logical LED number was greater than "7," 
the carry bit is set to indicate that output should occur on Port B 
rather than on Port A. Additionally, Y will contain the external value 
of the LED to be lit (1 to 10). 

Let us examine the subroutine in detail. The LED number is saved 
in index register Y: 

SETBIT TAY Save logical number 

It is then compared to the limit value "7." 

CMP #8 
BCC SBO 

If the value was greater than 7, we subtract 8 from it: 
SBC #8 Subtract if > 7 

Exercise 10-1: Recall that SBC requires the carry to be set. Is this the 
case? 

Now we can be assured that the number in the accumulator is be- 
tween "0" and "7." Let us save it in X: 

SBO TAX 

A bit will now be shifted into the correct position of the accumulator. 
Let us first set the carry to "1": 

SEC Prepare to roll 
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We clear the accumulator: 
LDA #0 

then we roll in the bit to the correct position: 

SBLOOP ROL A 
DEX 

BPL SBLOOP 

Note that index register X is used as a bit-counter. The accumulator is 
now correctly conditioned. The external number of the LED to be lit is 
equal to the initial value which was stored in the accumulator plus 
one: 

INY Make Y the external # 

If LEDs 9 or 10 must be lit, the carry bit must be set to indicate this 
fact. Port B will have to be used rather than Port A: 

CPY #9 Set carry for Port B 

RTS 

Exercise 10-2: Compare this subroutine to the LIGHT subroutine in 
the previous chapter. 

Exercise 10-3: How was the carry set for LED #9 at the end? 
LIGHTR Subroutine 

This subroutine deals the next card to the dealer (computer). It must 
obtain a random number, then make sure that this card has not 
already been dealt, i.e., that it does not correspond to a card which 
has already been displayed on the board. If it has not already been 
displayed, the random number can be used as the value of the next 
card to be dealt. A steady LED will then be lit on the board. 

Let us first get a random number: 

LIGHTR JSR RANDOM 
It will be shown below that the RANDOM routine does not just ob- 
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tain a random number but also makes sure that it does not correspond 
to a card already used. All we have to do then is position the correct 
bit in the accumulator and display it. Let us use the SETBIT routine 
we have just described in order to position the bit in the accumulator: 

JSR SETBIT 

We must determine whether Port A or Port B must be used. This is 
done by testing the carry bit which has been conditioned by the SET- 
BIT subroutine: 

BCS LLO 

We will assume that Port A must be used. The new bit will be added to 
the display by ORing it into Port A: 

ORA PORTA 
STA PORTA 

The value of the card must be restored into the accumulator. It had 
been saved in the Y register by the SETBIT routine: 

TYA 
RTS 

In case Port B is used, the sequence is identical: 

LLO ORA PORTB 

STA PORTB 

TYA Restore value 

RTS 

BLINKER Subroutine 

This subroutine operates exactly like LIGHTR above except that it 
sets an LED flashing. Note that it contains the SETMASK subroutine 
which will set the proper LED flashing and exit with a numerical value 
of the LED in the accumulator: 

BLINKR JSR RANDOM Get random number 
SETMASK JSR SETBIT 
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BCS BLO 
ORA MASKA 
STA MASKA 
TYA 
RTS 

ORA MASKB 
STA MASKB 
TYA 
RTS 



Branch if Port B 



Restore value 



BLO 



RANDOM Subroutine 

This subroutine will generate a random number between "0" and 
"9" which has not already been used, i.e., which does not correspond 
to the internal number of an LED that is already lit on the Games 
Board. The value of this number will be left in the accumulator upon 
exit. Let us obtain a random number: 

RANDOM JSR RANDER Get 0-255 number 

The RANDER subroutine is the usual random number generator 
which has been described in previous chapters. As usual, we must re- 
tain only a number between "0" and "9." We will use a different 
strategy here by simply rejecting any number greater than "9" and 
asking for a new random number if this occurs: 



Exercise 10-4: Can you suggest an alternative method for obtaining a 
number between "0" and "9"? (Hint: such a method has been described 
in previous chapters.) 

A random number between "0" and "9" has now been obtained. 
Let us obtain the corresponding bit position which must be lit and save 
it in location TEMP: 



We will now check to see if the corresponding bit is already lit on either 



AND #$0F 

CMP #10 

BCS RANDOM 



JSR SETBIT 
STA TEMP 



Set bit in position 
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Port A or Port B. Let us first check to see if it is Port A or Port B: 
BCS RNO Determine Port A or B 

Assuming that it is Port A, we must now find which LEDs in Port A 
are lit. This is done by combining the patterns for the blinking and 
steady LEDs, which are, respectively, in Mask A and Port A: 

LDA MASKA 

ORA PORTA Combine Port and Mask 

Then a check is made to see whether or not the bit we want to turn on 
is already on: 

JMP RNl 

If it is on, we must obtain a new random number between "0" and 
09". 

RNl AND TEMP 

BNE RANDOM 

If the bit was not already on, we simply exit with the internal value of 
the LED in the accumulator: 

DEY 
TYA 
RTS 

Similarly, if an LED on Port B had to be turned on, the sequence is: 

RNO LDA MASKB 

ORA PORTB 
AND TEMP 
BNE RANDOM 
DEY 
TYA 
RTS 

RANDER Subroutine 

This subroutine generates a random number between "0" and 
"255." It has already been described in previous chapters. 
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DEL A Y Subroutines 

Two delay loops are used by this program: DELAY, which provides 
approximately a half-second delay and DELAY2, which provides 
twice this delay or approximately one second. Index registers X and Y 
are each loaded with the value "FF." A two-level nested loop is then 
implemented: 



DELAY2 JSR DELAY 
DELAY LDA #$FF 

TAY 

DO TAX 

Dl DEX 

LDA #$FF 
BNE Dl 
DEY 
BNE DO 
RTS 



Exercise 10-5: Compute the exact duration of the DELAY subroutines. 
Interrupt Handler 

The interrupt routine is used to blink LEDs on the board, using 
MASK A and MASKB, every time that the timer generates an inter- 
rupt. No registers are changed. The operation of this routine has been 
described in the preceding chapter: 



PHA 

LDA PORTA 
EOR MASKA 
STA PORTA 
LDA PORTB 
EOR MASKB 
STA PORTB 
LDA TILL 
PLA 
RTI 



SUMMARY 

This program was more complex than most, despite the simple strategy 
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used by the dealer. Most of the logical steps of the algorithm were 
accompanied by sound and light effects. Note how little memory is re- 
quired to play an apparently complex game. 



Exercise 10-6: Note that this program assumes that the contents of 
memory location RND are reasonably random at the beginning of the 
game. If you would like to have a more random value in RND at the 
beginning of the game, can you suggest an additional instruction to be 
placed in the initialization phase of this program? (Hint: this has been 
done in previous programs.) 



Exercise 10-7: In the ENDER routine are the instructions "BNE 
ENO" and "JMP START" both needed? If they are not, under what 
conditions would they be needed? 



Exercise 10-8: "Recursion" describes a routine which calls itself. Is 
DELA Y2 recursive? 



j — BL JACK PROGRAM 
ACCESS = *8B86 
INTVECL = *A67E 
INTVECH = $A67F 
IER = $A00E 

ACR = $A00B 

TILL = *A004 
T1CH = *A005 
DDRA = *A003 
DIlRB = *A002 
PORTA = $A001 
PORTB = $A000 
MASKA = *C2 
MASKB = $C3 
CHIPS = *C1 
DONE = f •'«) 
PHANB = *C4 
CHAND « »C5 
TEMP- = tC.6 
RND = *C7 

UH0U0N = $CD 
GETKEY = *100 
= *200 

? 

> BLACKJACK GAME t USES A 'DECK' OF 10 CARDS. CARDS DEALT 
;ro the PLAYER ARE FLASHING LSD'S. ones in the com- 
fPUTER'S HAND ARE STEADY. CARDS ARE DEALT BY A RANDOM 
f NUMBER GENERATOR WHICH IS NON -REPETITVE . NUMERICAL 
! TOTALS ARE KEPT IN ZERO PAGE LOCATIONS 'PHAND' AND 
! 'CHAND'. PORTA AND PORTB ARE THE OUTPUT PORTS TO THE 
J LED DISPLAY. MASKA AND MASKB ARE USED BY THE INTERRUPT 
SROUTINE TO FLASH SELECTED I... ED'S. 'DONE' AND 
S'UHOUON' ARE STATUS FLAGS TO DETERMINE END OF GAME AND 
(WHO WON THE CURRENT HAND. 



Fig. 10.12: Blackjack Program 
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S PROGRAM STARTS BY INITIALIZING THE TIMER AND THE 

S INTERRUPT VECTOR. THE OUTPUT PORTS ARE TURNED ON, 
(AND THE STATUS FLAGS ARE CLEARED. 



0200 ♦ 


20 


86 


P It Vi t 1 A f 1 k' 
O £> £' L. i J H L< l\ 


JSR 


ACCESS 


fllNr r\U l t.l- 1 olol t:.n ni..nur\ t 


0203 * 


A9 


FA 




L DA 


#$F A 


i 1 flAfi 1 rn.l TUTF'PMPT UFT'TflR 
f L. U M JL> LUW J. ly 1 C t\ (J r 1 V C. l.r 1 UH 


0* > 05 i 






" 




T HT 1 JC f"M 

.1 (v I Vfc.LL. 




020B I 


A9 


03 




Tda 


#$03 


±1 flA fl M T RU T WTE'K 1 1 tP T IICT Tf'lP 

* LUHW rf iun J. ri 1 tiMJr 1 VciL- 1 Un. 


020A * 


8D 


7F 




STA 


in I v i~. L» n 




020D * 


A9 


7F 




1 DA 


#$7F 


S P 1 F A ft T T M K' TWTFPIIP T £" W A R 1 P" 
f iiLtHH ) J. n c. i\ j. ix i r.(\ur i r_. i y h d i... c 


020E » 


8D 


OE 


AO 


S I A 


I E R 




0212 ! 


A9 


CO 




L DA 


#tco 




0214: 


8D 


OE 


AO 


STA 


IER 




0217! 


A9 


40 




LDA 


**40 


SPUT TIMER 1 IN FREE RUN MODE 


0219! 


8D 


OB 


AO 


STA 


ACR 




021C 


A9 


FF 




LDA 


♦ $FF 




021 e: 


8D 


04 


AO 


STA 


TILL 


SSET LOU LATCH ON TIMER 1 


0221 : 


8D 


05 


AO 


STA 


T1CH 


SSET HIGH LATCH 8, START TIMER 


0224 : 


58 






CLI 




f ENABLE PROCESSOR INTERUPTS 


0225 : 


8D 


03 


AO 


STA 


DDRA 


fSET LED PORTS TO OUTPUTS 


0228! 


8D 


02 


AO 


STA 


DDRB 




022B! 


D8 






OLD 






022C : 


A9 


05 




LDA 


*5 


SSET PLAYER'S SCORE TO 5 


022EJ 


85 


CI. 




STA 


CHIPS 




0230 : 


A9 


00 




LDA 


#0 


S CLEAR DONE FLAG 


0232! 


85 


CO 




STA 


DONE 





y 

S NEW HAND! DISPLAY IS CLEARED. BOTH HANDS ARE 

S ARE SET WITH START VALUES. AND THE CORRESPONDING 

SLED'S ARE SET. 



0234! 


85 


C2 




START 


STA 


MASKA 


j CLEAR BLINKER MASKS ? IT IS 


0236! 


85 


C3 






STA 


MASKS 


> ASSUMED THAT ACC. CONTAINS 


0238 : 


8D 


01 


AO 




STA 


PORTA 


S CLEAR LED'S 


023B! 


8D 


00 


AO 




STA 


PORTS 




023E : 


85 


CD 






STA 


UHOUON 


S CLEAR FLAG FOR HAND 


0240! 


20 


OF 


03 




JSR 


BLINKR 


S SET RANDOM BLINKING LED 


0243: 


85 


C4 






STA 


PHAND 


S STORE PLAYER'S HAND 


0245: 


20 


F7 


02 




JSR 


LIGHTR 


SSET A STEADY RANDOM LED 


0248: 


85 


C5 






STA 


CHAND 


.STORE COMPUTER'S HAND 










S KEY INPUT: 


'A' IS A 


S 

HIT. 'C IS COMPUTER' TURN 










S ALL OTHERS 


ARE IGNORED 


024A : 


20 


00 


01 


ASK 


JSR 


GETKEY 


.GET A KEY INPUT 


024D : 


C9 


OA 






CMP 


♦ *0A 


* DOES PLAYER WANT A HIT? 


024F: 


FO 


07 






BEQ 


HITPLR 


S YES . BRANCH 


0251 : 


C9 


OC 






CMP 


#*0C 


SIS IT 'COMP TURN' KEY? 


0253! 


FO 


12 






BEQ 


DEALER 


SYES 


0255! 


4C 


4A 


02 




JMP 


ASK 


S BAD KEY, TRY AGAIN 


025S! 


20 


OF 


03 


HITPLR 


JSR 


BLINKR 


SSET A RANDOM LED 


025B : 


18 








CLC 






025C : 


65 


C4 






ADC 


PHAND 


S TALLY PLAYER'S HAND 


025E : 


B5 


C4 






STA 


PHAND 




0260! 


C9 


OE 






CMP 


*14 


S CHECK HAND 


0262 : 


90 


E6 






BCC 


ASK 


SIS <=13, OK 


0264 : 


AC 


87 


02 




JMP 


LOSE 


S BUSTED , GO TO LOSE ROUTINE 


0267! 


20 


5D 


03 


DEALER 


JSR 


DELAY 


S DELAY EXECUTION OF ROUTINE 


026A! 


A5 


C5 






LDA 


CHAND 


SIS COMP OVER HOUSE LIMIT? 


026C! 


C9 


OA 






CMP 


#10 




026E : 


BO 


OF 






DCS 


WINNER 


SYES, FIGURE WINNER 


0270 : 


20 


F7 


02 




JSR 


LIGHTR 


S NO, SET RANDOM LED 


0273: 


18 








CLC 







Fig. 10.12: Blackjack Program (Continued) 



213 



ADVANCED 6502 PROGRAMMING 



( TALLY COMPUTER'S HAND 

(IS HAND <=13? 
(YESf ANOTHER HIT? 
f BUSTED r PLAYER WINS 

5FIGURE WINNER! 'WIN' AND 'LOSE' TALLY SCORE f 
SAND DETERMINE IF THE PLAYER HAS WON OR LOST 
5THE GAMF. THE 'WHOWON' FLAG IS SET TO SHOW WHO 
(WON THE PARTICULAR HAND. IF THE HANDS ARE EQUAL f 









(NOTHING 


IS 


AFFECTED. 




027F i 


A5 


C5 


WINNER 


LDA 


CHAND 


( COMPARE HANDS 


0281! 


C5 


C4 




CMP 


PHAND 




0283! 


FO 


19 




BEQ 


SCORER 


J ARE EQUAL f NO CHANGE 


0285: 


90 


OB 




BCC 


WIN 


(PLAYER'S HAND GREATER 


0287! 


C6 


CD 


LOSE 


dec 


WHOWON 


(LOSE ROUTINE 


0289: 


C6 


CI 




DEC 


CHIPS 


(TALLY SCORE 


028B! 


DO 


11 




BNE 


SCORER 


J IS PLAYER BROKE? 


028D! 


C6 


CO 




DEC 


DONE 


fYESf set end of game flag: lose 


028F: 


4C 


9E 02 




JMP 


SCORER 




0292! 


E6 


CD 


WIN 


INC 


WHOWON 


(WIN ROUTINE 


0294! 


E6 


CI 




INC 


CHIPS 


(TALLY SCORE 


0296: 


A5 


CI 




LDA 


CHIPS 


? ADD WINNINGS 


0298! 


C9 


OA 




CMP 


♦ 10 


(IF CHIPS=10f SET END OF GAME FLAG 


029A: 


DO 


02 




BNE 


SCORER 




029C! 


E6 


CO 




INC 


DONE 


(SET END OF GAME FLAG: WIN 



( 

(DISPLAY SCORE BY LIGHTING 1 OF 10 LED'S. THE 

( BOTTOM ROW OF LED'S IS SET TO SHOW WHETHER THE PLAYER 

(OR THE COMPUTER WON THE HAND. THE DISPLAY IS HELD 

(THUSf THEN A TEST IS MADE FOR AN END OF GAME CONDITION 

(IF SUCH A CONDITION EXISTS r THE LED'S ARE 

(SET ACCORDINGLY ( AND THE PROGRAM IS TERMINATED. 

(IT IS ASSUMED THAT THE ADDRESS OF THE MONITOR IS 

(ON THE STACK. 



029E! 


20 


00 


01 


SCORER 


JSR 


GETKEY 


(HOLD LAST STANDINGS OF CARDS 


02A1 : 


A9 


00 






LDA 


#0 


(CLEAR LED'S 


02A3: 


85 


C2 






STA 


MASKA 




02A5: 


85 


C3 






ST A 


MASKB 




02A7! 


8D 


01 


AO 




STA 


PORTA 




02AA! 


8D 


00 


AO 




STA 


PORTB 




02AD! 


A6 


CI 






LDX 


CHIPS 


(DISPLAY NUMBER OF CHIPS 


02AF: 


FO 


18 






BEQ 


ENDER 


(ADJUST SO SUBROUTINE SETS 


02B1 : 


CA 








DEX 




(THE RIGHT LED 


02B2! 


8A 








TXA 






02B3! 


20 


12 


03 




JSR 


SETMASK 


( 


02BA: 


AS 


CD 






LDA 


WHOWON 


(SEE WHO WON HAND 


02B8: 


FO 


OF 






BEQ 


ENDER 


( TIE- DO NOT AFFECT LED'S 


02BA! 


30 


OS 






BMI 


SC 




02BC! 


A9 


OE 






LDA 


♦ »0E 


(PLAYER WON- SET THREE LEFT LED'S 


02BE: 


4C 


C3 


02 




JMP 


SCO 




02Ci: 


A9 


BO 




SC 


LDA 


*$B0 


(PLAYER LOST- SET THREE RIGHT LED 


02C3! 


OD 


00 


AO 


SCO 


ORA 


PORTB 


(SET LED PORT 


02C6! 


8D 


00 


AO 




STA 


PORTB 




02C9: 


20 


5A 


03 


ENDER 


JSR 


DELAY2 


(HOLD DISPLAY 
( 


02CC! 


A5 


CO 






LDA 


DONE 


( CHECK FOR END OF GAME CONDITION 


02CE! 


DO 


03 






BNE 


ENO 




02D0: 


4C 


34 


02 




JMP 


START 


(ZEROf START NEW HAND 


02D3! 


10 


06 




ENO 


BPL 


EN1 


(*01( WIN CONDITION 


02D5! 


A9 


BE 






LDA 


*$BE 


(SET SOLID ROW LEDS 


02D7: 


8D 


00 


AO 




STA 


PORTB 




02DA: 


60 








RTS 




(RETURN TO MONITOR 



Fig. 10.12: Blackjack Program (Continued) 



0274: 65 C5 

0276! 85 C5 

0278: C9 OE 

027A: 90 EB 



ADC CHAND 
STA CHAND 
CMP #14 
BCC DEALER 
JMP WIN 



214 



COMPLEX EVALUATION TECHNIQUE 



02DB: 

02DD! 

02df: 

02E1 : 
02E3! 



A9 FF 
85 C2 
A9 01 
85 C3 
60 



LDA *$FF 
STA MASKA 
LDA *$01 
STA MASKB 
RTS 



JSET BLINKING SQUARE 



! RETURN TO MONITOR 



-SUBROUTINES 



! SET A BIT IN ACCUMULATOR! ENTER WITH A LOGICAL VALUE , 
rl.E. 0-9, IN ACC. EXITS WITH A NUMERICAL VALUE < 1-10 > 
»IN Y» AND THE BIT POSITIONED TN ACC. THE CARRY FLAG 



02E4 t 


A8 






SETBIT TAY 




i SAVE LOGICAL NUMBER 


02E5! 


C9 


08 




CMP 


♦ 8 


i BRACKET 0- 7 VALUE 


02E7: 


90 


02 




BCC 


SBO 




02E9! 


E9 


08 




SBC 


*8 


i... SUBTRACT IF >7 


02EBt 


AA 






SBO TAX 




i SET INDEX REG 


02EC! 


38 






SEC 




(PREPARE BIT TO ROLL 


02ED ! 


A9 


00 




LDA 


♦ 




02EF! 


2A 






SBLOOP ROL 


A 


i MOVE BIT TO POSITION 


02F0! 


CA 






DEX 






02F1 : 


10 


FC 




BPL 


SBLOOP 




02F3! 


C8 






INY 




i MAKE Y NUMERICAL, NOT LOGIC 


02F4t 


CO 


09 




CPY 


#9 


iSET CARRY. FOR PORTB, C=i 


02F6! 


60 






RTS 














(LIGHTR! SETS A RANDOM STEADY LED THAT HAS NOT BE 










^PREVIOUSLY 


SET. 


IT GETS A RANDOM NUMBER, THEN S 










iTHE BIT IN 


THE PROPER PORT. THE NUMERICAL VALUE 










SBIT SET IS 


IN THE 


ACCUMULATOR ON EXIT, 


02F7.' 


20 


23 


03 


LIGHTR JSR 


RANDOM 


5 GET RANDOM NUMBER 


02FA: 


20 


E4 


02 


JSR 


SETBIT 


( GET BIT POSITIONED IN ACC. 


02Fd: 


BO 


08 




BCS 


LLO 


i BRANCH IF PORT B DESIGNATED 


02FF! 


OD 


01 


AO 


ORA 


PORTA 


SSET LED IN PORTA 


0302: 


8D 


01 


AO 


STA 


PORTA 




0305! 


98 






TYA 




i RESTORE NUMERICAL VALUE 


0306! 


60 






RTS 






0307! 


OD 


00 


AO 


LLO ORA 


PORTB 


i SET LED IN PORTB 


030A! 


8D 


00 


AO 


STA 


PORTB 




030D! 


98 






TYA 




i RESTORE NUMERICAL VALUE 


030E! 


60 






RTS 







i BLI NKR ! SETS A RANDOM FLASHING LED THAT HAS NOT BEEN 
^PREVIOUSLY SET. THE NUMERICAL VALUE OF THE LED IS IN 
iTHE ACCUMULATOR ON EXIT. IT GETS A RANDOM NUMBER , 
STHEN DROPS INTO THE SETMASK" ROUTINE TO FLASH THE 
i PROPER LED. 
i 

i SETMASK! ENTER WITH A LOGICAL VALUE, AND ROUTINE 
(SETS THE PROPER FLASHING LED. EXITS WITH NUMERICAL 
i VALUE OF LED SET IN ACCUMULATOR 



030F! 20 23 03 

0312! 20 E4 02 

0315! BO 06 

0317! 05 C2 

0319! 85 C2 

031B! 98 

03 1C! 60 

031D! 05 C3 

031.F! 85 C3 



BLI NKR JSR RANDOM 
SETMASK JSR SETBIT 
BCS BLO 
ORA MASKA 
STA MASKA 
TYA 
RTS 

BLO ORA MASKB 

STA MASKB 



i GET RANDOM NUMBER 



i BRANCH IF 
J SET MASKA 



■•ORTB DESIGNATED 



i RESTORE NUMERICAL VALUE 



f SET MASKB 



Fig. 10.12: Blackjack Program (Continued) 
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0321! 98 
0322: 60 



TYA 
RTS 

( GENERATES A 
(THE NUMBER 
(EXIT. 



RANDOM 
OF AN LE 



0323! 
0326! 
0328i 
032A! 
032C: 
032F ! 
0331 : 
0333: 
0335 : 
0338 : 
033B: 
033D : 
0340: 
0342: 
0344: 
0345! 
0346: 



20 47 03 
29 OF 
C9 OA 
BO F7 
20 E4 02 
85 C6 
BO 08 
A5 C2 
Oil 01 AO 
4C 40 03 
A5 C3 

on oo ao 

25 C6 

no nF 

88 
98 
60 



RANDOM 



JSR 
AND 
CMP 
BCS 
JSR 
STA 
BCS 
L.DA 
ORA 
JMP 
LDA 
ORA 
AND 
BNE 
DEY 
TYA 
RTS 



RANDER 

*»0F 

#10 

RANDOM 

SETBIT 

TEMP 

RNO 

MASKA 

PORTA 

RN1 

MASKB 

PORTB 

TEMP 

RANDOM 



NUMBER FROM TO 9 THAT IS NOT 

D ALREADY SET. RESULT IS IN ACC ON 



(GET 0-255 NUMBER 
(MASK HIGH NIBBLE 
( BRACKET 0-9 



(SET BIT IN POSITION 
(SAVE IT 

(IlETERMINE PORT A OR B 
(COMBINE PORT AND MASK 



(COMBINE PORT AND MASK 

( LOOK AT SPECIFIC BIT 

(IF BIT SET ALREADY r TRY AGAIN 

( MAKE Y LOGICAL 

(EXIT WITH VALUE IN ACCUMULATOR 



(GENERATES A RANDOM NUMBER FROM 0-255. USES NUMBERS 
(A,B.C»D,E,F STORED AS RND THROUGH RND+5. ADDS B+E+F+l 
(AND PUTS RESULT IN A> THEN SHIFTS A TO B. B TO C, ETC. 
(RANDOM NUMBER IS IN ACCUMULATOR ON EXIT. 



0347: 


38 




RANDER 


SEC 


( 


CARRY ADDS 1 


0348: 


A5 


C8 




LIIA 


RNDU > 


ADD B»DiF 


034A! 


65 


CB 




ADC 


RND+4 




034C : 


65 


CC 




ADC 


RND+5 




034E! 


85 


C7 




STA 


RND 




0350 : 


A 2 


04 




LUX 


*4 ( 


SHIFT NUMBERS 


0352: 


BS 


C7 


RDLOOP 


LHA 


RND r X 




0354! 


95 


C8 




STA 


RND+1 rX 




0356! 


CA 






DEX 






0357 : 


10 


F9 




BPL 


RDLOOP 




0359: 


60 






RTS 












(DELAY 


LOOP 


DELAY2 1 


S SIMPLY TWIC 








(OF HELAY. 


GIVEN LOOF 


IS APPROX. . 


035A : 


20 


5D 03 


I1ELAY2 


JSR 


DELAY 




035D: 


A9 


FF 


DELAY 


LDA 


♦ *FF ! 


SET VALUE FOR 


035F! 


A8 






TAY 






0360! 


AA 




DO 


TAX 






0361 : 


CA 




III 


HEX 






0362: 


A9 


FF 




LDA 


*$FF 




0364: 


DO 


FB 




BNE 


Dl 




0366: 


88 






DEY 






0367! 


DO 


F7 




BNE 


DO 




0369! 


60 






RTS 







THE TIME DELAY 
SEC. DELAY. 



(INTERRUPT ROUTINE! EXCLUSIVE OR'S THE OUTPUT 
(PORTS WITH THE CORRESPONIUNG BL INKER MASKS EVERY 
(TIME THE TIMER TIMES OUT TO FLASH SELECTED LED'S, 
(NO REGISTERS ARE CHANGED » AND THE INTERRUPT 
(FLAG IS CLEARED BEFORE EXIT. 



03EA: 48 

03EB! AD 01 AO 



=*03EA 
PHA 

LDA PORTA 



(SAVE ACCUMULATOR 
(COMPLEMENT PORTS Willi MASK: 



Fig. 10.12: Blackjack Program (Continued) 
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03EE.' 45 C2 
03F0! 8D 01 AO 
03F3! AD 00 AO 
03F6: 45 C3 
03F8! 81) 00 AO 
03FB! All 04 AO 
03FE! 68 
03FF! 40 



FOR 
STA 
LDA 
FOR 
STA 
LDA 
PL A 
RTI 



MASKA 
PORTA 
PORTS 
MASKB 
PORTS 
TILL 



5 CLEAR TIMER INTERRUPT BIT 
! RESTORE ACCUMULATOR 



SYMBOL TABLE: 



ACCESS 


8B86 


INTVECL 


IER 


AOOE 


ACR 


T1CH 


A005 


DDRA 


PORTA 


A001 


PORTS 


MASKB 


00C3 


CHIPS 


PHAND 


00C4 


CHAND 


RND 


00C7 


WHOUON 


BLJACK 


0200 


START 


HITPLR 


0258 


DEALER 


LOSE 


0287 


WIN 


SC 


02C1 


SCO 


ENO 


02D3 


EN1 


SBO 


02EB 


SBLOOP 


LLO 


0307 


BLINKR 


BLO 


031D 


RANDOM 


RN1. 


0340 


RANDER 


HEL.AY2 


035A 


DELAY 


Dl 


0361 





A67E 


INTVECH 


A67F 


AOOB 


TILL 


A 00 4 


AO 03 


DDRB 


A 00 2 


AOOO 


MASKA 


00C2 


00C1 


done: 


OOCO 


00C5 


TEMP 


00C6 


OOCD 


GETKEY 


0100 


0234 


ASK 


024A 


0267 


WINNER 


02 7F 


0292 


SCORER 


029E 


02C3 


ENDER 


02C9 


02 DB 


SET BIT 


02E4 


02EF 


LIGHTR 


02F7 


030F 


SETMASK 


0312 


0323 


RNO 


033B 


0347 


RDLOOP 


0352 


03SD 


DO 


0360 



'Fig. 10.12: Blackjack Program (Continued)- 
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11. Artificial Intelligence 
(Tic-Tac-Toe) 

INTRODUCTION 

This chapter presents the complete design of a complex algorithm that 
solves the strategy and implementation problems of the Tic-Tac-Toe 
game. This is a long program using sophisticated evaluation techniques, 
table look-up algorithms, as well as complex data structures such as 
chained lists. It deserves a close examination and will bring you to a true 
competence level when programming the 6502. 

THE RULES 

Tic-Tac-Toe is played on a three-by-three sectioned square. An "O" 
symbol will be used to represent a move by the player and an "X" will 
be used to display a move by the computer. Each player moves in turn, 
and on every turn each player strategically places his or her symbol in 
a chosen section of the board. The first player to line up three symbols 
in a row (either horizontally, vertically or diagonally) is the winner. 
An example of the eight possible winning combinations is shown in 
Figure 11.1. Using our LED display, a continuously lit LED will be 
used to display an "X," i.e., a computer move. A blinking LED will 
be used to display an "O," i.e., the player's move. 

Either the player or the computer may make the first move. If the 
player decides to move first, he or she must press key "F." If the com- 
puter is to move first, any other key should be pressed and the com- 
puter will start the game. At the end of each game a new game will 
start automatically. The computer is equipped with a variable IQ (in- 
telligence) level ranging from one to fifteen. Every time the computer 
wins, its IQ level is reduced one unit. Every time the player wins, the 
computer's IQ level is increased by one unit. This way, every player 
has a chance to win. A high tone is sounded every time the player wins 
and a low tone is sounded every time that the player loses. 

A TYPICAL GAME 

The display is initially blank. We will let the computer start. We do 
this by pressing any key but the key "F." (If we press key "F," then 
the player must go first.) Let us begin by pressing "0." After a short 
pause the computer responds with a "chirp" and makes its move. (See 
Figure 11.2.) 
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Fig. 11.1: Tic-Tac-Toe Winning Combinations For a Player 















X 







Fig. 11.2: First Computer Move 



An "X" is used to denote the computer's moves. "O" will be used 
to denote our moves. Blank spaces are used to show unlit LEDs. Let 
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us move to the center and occupy position 5. (See Figure 11.3.) We 
press key "5." A moment later, LED #1 lights up and a chirp is heard 
that indicates it is our turn to play. The board is shown in Figure 11 .4. 











o 






X 





Fig. 1 1.3: Our First Move 



X 













X 







Fig. 1 1 .4: Second Computer Move 

It is now our turn and we should block the computer to prevent it 
from completing a winning column: let us occupy position 4. We press 
key "4." A moment later, LED #6 lights up and a chirp is heard. The 
situation is shown in Figure 11.5. 



X 






o 


o 


X 


X 







Fig. 11.5: After the Computer's Third Move 
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We play in position 2. The computer reacts by playing in position 8. 
This is shown in Figure 11.6. We prevent the computer from com- 
pleting a winning row by playing in position 9. The computer responds 
by occupying position 3. This is shown in Figure 11.7. This is a draw 
situation. Nobody wins, all the LEDs on the board blink for a mo- 
ment, and then the board goes blank. We can start another game. 
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Fig. 1 1 .6: After the Computer's Fourth Move 
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(DRAW) 

Fig. 1 1 .7: After the Computer's Fifth Move 



Another Game 

This time we are going to start and, hopefully, win! We press "F" 
to start the game. A chirp is heard, confirming that it is our turn to 
play. We play in position 5. The computer responds by occupying 
square 3. The chirp is heard, announcing that we can play again. The 
situation is shown in Figure 11.8. We play in position 4. The computer 
responds by occupying square 6. This is shown in Figure 11.9. This 
time we must block the computer from completing the column on the 
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Fig. 11.9: Move 2 
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Fig. 11.10: Move 3 



right and we move into position 9. The computer responds by moving 
to square 1, thus preventing us from completing a diagonal. This 
situation is shown in Figure 11.10. We must prevent the computer 
from completing a winning row on top; therefore we occupy position 
2. The computer responds by occupying position 8. This is shown in 
Figure 11.11. We make our final move to square 7 to finish the game. 
This is a draw: we did not beat the computer. 
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Fig. 11.11: Move 4 

Since the computer was "smart enough" to move into a diagonal 
position after we occupied the center position, we did not win. Note: if 
we keep trying, at some point the computer will play one of the side 
positions (2, 4, 6, or 8) rather than one of the corners and we will then 
have our chance to win. Here is an example. 

We move to the center. The computer replies by moving into posi- 
tion 6. The situation is shown in Figure 11.12. We move to square 1; 
the computer moves to square 9. This is shown in Figure 11.13. We 
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Fig. 11.12: Move 1 
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Fig. 11.13: Move 2 
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move to square 3; the computer moves to square 7. This is shown in 
Figure 11.14. This time we make the winning move by playing into 
square 2. The situation is shown in Figure 11.15. Note that if we start 
playing and if we play well, the result will be either a draw or a win. 
With Tic-Tac-Toe, the player who starts the game cannot lose if he or 
she makes no mistakes. 
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Fig. 11.14: Move 3 
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Fig. 11.15: "We Win!" 

THE ALGORITHM 

The algorithm for the Tic-Tac-Toe program is the most complex of 
those we have had to devise so far. It belongs to the domain of so- 
called "artificial intelligence." This is a term used to denote the fact 
that the functions performed by the program duplicate the mental ac- 
tivity commonly called "intelligence." Designing a good algorithm 
for this game in a small amount of memory space is not a trivial prob- 
lem. Historically, many algorithms have been proposed, and more can 
be found. Here, we will examine two strategies in detail, and then 
select and implement one of them. Additional exercises will suggest 
other possible strategies. 
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Strategy to Decide the Next Move 

A number of strategies may be used to determine the next move to 
be made by the computer. The most straightforward approach would 
be to store all possible patterns and, the best response in each case. 
This is the best method to use from a mathematical point of view as it 
guarantees that the best possible move will be made every time. It is 
also a practical approach because the number of combinations on a 3 
x 3 board is limited. However, since we have already learned to do 
table lookups for other games, such an approach would not teach us 
as much about programming. It might also not be considered "fair." 
We will, therefore, investigate other methods applicable to a wider 
number of games, or to a larger board. 

Many strategies can be proposed. For example, it is possible to con- 
sider a heuristic strategy in which the computer learns by doing. In 
other words, the computer becomes a better player as it plays more 
games and learns from the mistakes it makes. With this strategy the 
moves made by the computer are random at the beginning of the 
game. However, provided that a sufficient amount of memory is 
available, the computer remembers every move that it has made. If it 
is led into a losing situation, the moves leading to it are thrown out by 
the computer as misjudged moves, and they will not be used again in 
that sequence. With time and a reasonable "learning" algorithm this 
approach will result in the construction of decision tables. However, 
this approach assumes that a very large amount of memory is 
available. This is not the case here. We want to design a program 
which will fit into IK of memory. Let us look at another approach. 

Another basic approach consists of evaluating the board after each 
move. The board should be examined from two standpoints: first, if 
there are two "0"s in a row, it is important to block them unless a win 
can be achieved with the current move. Also, the win potential of 
every board configuration should be examined each time: for exam- 
ple, if two "X"s are in a row, then the program must make a move in 
order to complete the row for a win. Naturally these two situations are 
easy to detect. The real problem lies in evaluating the potential of 
every square on the board in every situation. 

An Analytical Algorithm 

At this point, we will show the process used to design an algorithm 
along very general guidelines. After that, as we discover the weakness- 
es of the algorithm, we will improve upon it. This will serve as an ex- 
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ample of a possible approach to problem-solving in a game of 
strategy. 

General Concept 

The basic concept is to evaluate the potential of every square on the 
board from two standpoints: "win" and "threat." The win potential 
corresponds to the expectation of winning by playing into a particular 
square. The threat potential is the win potential for the opponent. 

We must first devise a way to assign a numerical value to the com- 
binations of "0"s and "X"s on the board. This must be done so that 
we can compute the strategic value, or "potential," of a given square. 

Value Computation 

For each row (or column or diagonal), four possible configurations 
may occur — that is, if we exclude the case in which all three positions 
are already taken and we cannot play in a row. These configurations 
are shown in Figure 11.16. Situation "A" corresponds to the case in 
which all three squares are empty. Clearly, the situation has some 
possibilities and we will start by assigning the value "one" to each 
square in that case. The next case is shown in row "B" of Figure 
11.16; it corresponds to the situation in which there is already an "X" 
in that row. If we were to place a second "X" in that row, we would 
be very close to a win. This is a desirable situation that has greater 
value than the preceding one. Let us add "one" to the value of each 
free square because of the presence of the "X"; the value of each 
square in that instance will be "two." 

Let us now consider case "C" in Figure 11.16, in which we have one 
"X" and one "O." The configuration has no value since we will never 
be able to win in that particular row. The presence of an "O" brings 
the value of the remaining square down to "zero." 

Finally, let us examine the situation of row "D" in Figure 11.16, 
where there are already two "X"s. Clearly, this is a winning situation 
and it should have the highest value. Let us give it the value "three." 

The next concept is that each square on the board belongs to a row, 
a column, and possibly a diagnoal. Each square should, therefore, be 
evaluated in two or three directions. We will do this and then we will 
total the potentials in every direction. For convenience, we will use an 
evaluation grid as shown in Figure 11.17. Every square in this grid has 
been divided into four smaller ones. These internal squares are used to 
display the potential of each square in each direction. The square 
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Fig. 11.16: The Six Combinations 



H 


V 










D 


T 


H 




















M 





































Fig. 11.17: Evaluation Grid 
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labeled "H" in Figure 11.17 will be used to evaluate the horizontal 
row potential. "V" will be used for the vertical column potential. 
"D" will be used for the diagonal potential. "T" will be used for the 
total of the previous three squares. Note that there is no diagonal 
value shown for four of the squares on the board. This is because they 
are not placed on diagonals. Also note that the center square has two 
diagonal values since it is at the intersection of two diagonals. 

Once our algorithm has computed the total threat and win poten- 
tials for each square, it must then decide on the best square in which to 
move. The obvious solution is to move to the square having the 
highest win or threat potential. 

Now we shall test the value of our algorithm on some real examples. 
We will look at some typical board configurations and evaluate them 
by using our algorithms to check if the moves it generates make sense. 

A Test of the Initial Algorithm 

Let us look at the situation in Figure 11.18. It is the player's turn 
("O") to play. We will evaluate the board from two standpoints: 
potential for "X" and threat from "O." We will then select the 
square that has the highest total in each of the two grids generated and 
make our move there. 
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Fig. 11.18: Test Case 1 

Let us first complete the evaluation grid for the first row. Since 
there is an "O" in the first row, the horizontal potential for the player 
is zero (refer to row C, Figure 11.16 and look up the value of this con- 
figuration). This is indicated in Figure 11.19. Let us now look at row 
2: it contains two blank squares and an "X." Referring to line B of 
Figure 11.16, the corresponding value is "two." It is entered at the ap- 
propriate location in the grid, as shown in Figure 11.20. Finally, the 
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Fig. 1 1.19: Evaluation Grid: Row 1 Potential 
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Fig. 1 1 .20: Evaluating the Horizontal Potential 



third row is examined, and since there is an "O" in it, the row poten- 
tial is "zero," as indicated in Figure 11.20. The process is then repeat- 
ed for the three columns. The result is indicated in Figure 11.21. 

The value of each square of column 1 is "zero," since there is an 
"O" at the bottom. Similarly, for column 2 the value is also "zero," 
and for column 3 it is "one" for each square, since all three squares 
are open (blank). (Refer to line A in Figure 11.16.) 

The process is repeated for each of the two diagonals and the results 
are shown in Figure 11.22. Finally, the total is computed for each 
square. The results are shown in Figure 11.23. Remember that the 
total appears in the bottom right-hand corner of each square. 

It can be seen that at this point, two squares (indicated by an arrow 
in Figure 11.23) have the highest total, "three." This indicates where 
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Fig. 1 1 .2 1 : Evaluating the Vertical Potential 
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Fig. 1 1.22: Evaluating the Diagonal Potential 
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Fig. 11.23: The Final Potential 
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we should play. But wait! We have not yet examined the threat, i.e., 
the potential from our opponent "O." 

We will now evaluate the threat posed by "O" by again computing 
the potential of each square on the board, but this time from "O's" 
standpoint. The position values for the six meaningful combinations 
are indicated in Figure 11.24. When we apply this strategy to our 
evaluation grid, we obtain the results shown in Figure 11.25. The 
square with the highest score is the one indicated by the arrow. It 
scores "four," which is higher than the two previous squares that 
were determined when we evaluated the potential for "X." 

Using our algorithm, we decide that the move we should make is to 
play into square 1, as indicated in Figure 11.26. 

Let us verify whether this was indeed the appropriate move, assum- 
ing that each player makes the best possible move. A continuation of 
the game is shown in Figure 11.27. It results in a draw. 
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Fig. 11.24: Evaluation for "O" 
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Fig. 11.25: Potential Evaluation 
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Fig. 1 1 .26: Move for Highest Score 
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Fig. 1 1 .27: Finishing the Game 
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Let us now examine what would have happened if we had not 
evaluated the threat and played only according to the highest potential 
for "X" as shown in Figure 11.23. This alternative ending for the 
game is shown in Figure 11.28. This game also results in a draw. In 
this instance, then, the square with the value "four" did not truly 
have a higher strategic value than the one with the value "three." 
However, our algorithm worked. 

Let us now test our algorithm under more difficult circumstances. 
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Fig. 1 1 .28: An Alternative Ending for the Game 



Improving the Algorithm 

In order to test our algorithm, we should consider clear-cut situa- 
tions in which there is one move that is best. To begin, we will assume 
that it is the player's turn. The first test situation, evaluated for "X," 
is illustrated in Figure 11.29, and the potential for "O" is shown in 
Figure 11.30. This time we have a problem. The highest overall poten- 
tial is "four" for "X" in the lower right corner square. If the com- 
puter moved there, however, the player would win! At this point our 
algorithm should be refined. 

We should note that whenever there are already two "X"s in a row 
the configuration should result in a very high potential for the third 
square. We should therefore assign it a value of "five" rather than 
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Fig. 1 1.29: Test #1 Evaluated for "X 1 
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Fig. 1 1 .30: Teit # 1 Evaluated for "O' 
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Fig. 11.31: Test #2 
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"three" to ensure that we move there automatically. We have thereby 
identified and made our first improvement to the algorithm. 

The second test situation is shown in Figure 11.31. Our algorithm 
assigns the value "six" to the lower right corner square (as indicated 
by an arrow in Figure 11.31). This is clearly the correct move. It 
works! Now, let us test the improvement we have made. 

The First Move 

When the board is empty, our algorithm must decide which square 
should be occupied first. Let us examine what this algorithm does. 
(The results are shown in Figure 11 .32.) The algorithm always chooses 
to move to the center. This is reasonable. It could be shown, however, 
that it is not indispensable in the game of Tic-Tac-Toe. In fact, having 
the computer always move to the center makes it appear "boring," or 
simply "lacking imagination." Something will need to be done about 
this. This will be shown in the final implementation. 
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Fig. 1 1 .32: Moving to the Center 

Another Test 

Let us try one more simple situation. This situation is shown in 
Figure 11.33. Again, the recommended move is a reasonable one. The 
reverse situation is shown in Figure 1 1 .34 and does, indeed, lead to a 
certain win. So far, our algorithm seems to work. Let us try a new 
trap. 

A Trap 

The situation is shown in Figure 11.35. It is now "X's" turn to play. 
Using our algorithm, we will move into one of the two squares having 
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Fig. 11.33: A Simple Situation 
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Fig. 1 1 .34: A Reverse Situation 



the total of "four." This time, however, such a move would be an er- 
ror! Assuming such a move, the end of the game is shown in Figure 
11.36. It can be seen that "O" wins: The move by "X" was an incor- 
rect choice if there was a way to get at least a draw. The correct move 
that would lead to a draw is shown in Figure 11.37. This time, our 
algorithm has failed. Following is a simple analysis of the cause: it 
moved to a square position of value "four" corresponding to a high 
level of threat by "O," but left another square with an equal threat 
value unprotected (see Figure 11 .35). Basically, this means that if "O" 
is left free to move in a square whose threat potential is equal to 
"four," it will probably win. In other words, whenever the threat 
posed by "O" reaches a certain threshold, the algorithm should con- 
sider alternative strategies. In this instance, the strategy should be to 
place an "X" in a square that is horizontally or vertically adjacent to 
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Fig. 11.35: Trap 3 
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Fig. 11.36: End of Game 



the first one in order to create an imminent "lose threat" for "O," 
and thereby force "O" to play into the desired square. In short, this 
means that the algorithm should analyze the situation further or better 
still, analyze the situation one level deeper, i.e., one turn ahead. This 
is called two-ply analysis. 
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Fig. 1 1 .37: A Correct Move 



In conclusion, our algorithm is simple and generally satisfactory. 
However, in at least one instance, Trap 3 in Figure 11.35, it fails. We 
must therefore, include either a special consideration for this case, or 
we must analyze the situation one turn ahead every time and look at 
what would happen if we were to place an "X" or an "O" in every 
one of the available squares. The latter is actually the "cleanest" solu- 
tion. Ideally, we should analyze all of the possible sequences until an 
end-of-game situation is obtained. The programming complexity, the 
storage required, and the time that would be needed to analyze the 
situations would, however, make this approach impractical. In a more 
complex game, such as chess or checkers, it would be necessary to use 
such a multi-ply analysis. For example, using only a two-ply analysis 
technique to design a simple chess game would not make it very in- 
teresting or very good. It would be necessary to use three-ply, four-ply 
or even more detailed analysis in order to make the game challenging. 

If it is not possible to push the evaluation to a sufficient depth, the 
algorithm must be equipped with specific procedures that can detect 
special cases. This is the case with ad hoc programming, which can 
be considered "unclean" but actually results in a much shorter pro- 
gram and/or a lesser memory requirement. In other words, if the 
special situations in a game can be recognized in advance, then it is 
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possible to write a special-purpose program which will take these 
situations into account. The resulting program will usually be shorter 
than the completely general one. This type of program, however, 
can only be constructed if the programmer has an excellent initial 
understanding of the game. 

In the game of Tic-Tac-Toe, the number of combinations is limited. 
This makes it possible to examine all possible combinations that can 
be played on the board and to devise a procedure that takes all of these 
cases into account. Since we are primarily limited here by the amount 
of available memory, we will construct an ad hoc algorithm that fits 
within IK of memory. Alternative techniques will be proposed as 
exercises. 

The Ad Hoc Algorithm 

This algorithm assigns a value to each square on the board depend- 
ing on who has played there. Initially a value of "zero" is assigned to 
each square on the board. Every time the player occupies a square, 
however, the corresponding value of the square becomes "one." 
Every time the computer occupies a square, the value of that square 
becomes "four." This is illustrated in Figure 11.38. The value of 
"four" has been chosen so that it is possible to know the combination 
of moves in that row just by looking at the total of every row. For ex- 
ample, if a row consists of a move by the player and two empty 
squares, its "row-sum" is "one." If the player has played twice, its 
row-sum is "two." If the player has played three times, the row-sum is 
"three." Since "three" is the highest total that can be achieved in 
rows where only the player has played, the value of "four" has been 
assigned to a computer move. For example, if the value of a row is 
"five," we know that there is one computer move ("X"), one player 
move ("O"), and one empty square. The six possible patterns are 
shown in Figure 11.38. It can readily be seen that the row-sum values 
of "two" or "eight" are winning situations. A row-sum value of 
"five" is a blocked position, i.e., one that has no value for the player. 
If a win situation is not possible, then the best potentials are represent- 
ed by either a value of "one" or a value of "four" depending on 
whose turn it is to play. 

The algorithm is based on such observations. It will first look for a 
win by checking to see if there is a row-sum of value "eight." If this is 
the case, it will play there. If not, the algorithm will check for a so- 
called "trap" situation in which two intersecting rows each have a 
computer move in them and nothing else (the algorithm is always used 
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Fig. 11.38: Row-sums 



for the computer's benefit). This is illustrated in Figure 11.39. By ex- 
amining Figure 11.39, it becomes clear that each unoccupied square 
that belongs to two rows having a row-sum of "four" is a trap posi- 
tion where the algorithm should play. This is exactly what it does. 

The complete flowchart for the board analysis is shown in Figure 
11.40. Now, let us examine it in more detail. Remember that it is 
always the computer's turn when this algorithm is invoked. 

First, it checks for a possible immediate win. In practice, we will ex- 
amine all row-sums and look for one which has a total of "eight." 
This would correspond to a case where there are two computer moves 
in the same row with the last square being empty. (Refer to Figure 
11.38.) 

Next, we will check for a possible player win. If the player can win 
with the next move, the algorithm must block this move. To do so, it 
should scan the row-sums and look for one that has a total of "two," 



240 



ARTIFICIAL INTELLIGENCE 



ROWSUM 



PLAY 
HERE 






X 




















X 


X 




/ 






4 




4 


4 








Fig. 1 1 .39: A Trap Pattern 



which would indicate a winning combination for the player. (Refer to 
Figure 11.38.) 

At this point the algorithm should check to see if the computer can 
play into any of the trap positions defined above. (See Figure 11 .39 for 
an example.) 

One more feature has been built into the algorithm: the computer is 
equipped with a variable IQ level, i.e., with a variable level of in- 
telligence. The above moves are ones that any "reasonable computer" 
must make. From this point on, however, the algorithm can let 
the computer make a few random moves and even possible mistakes if 
its intelligence level is set to a low level. In order to provide some 
variety to the game, we will obtain a random number, compare it to 
the IQ, and vary our play depending upon the results. If the IQ is set 
to the maximum, the program will always execute the right branch of 
the flowchart; however, if the IQ is not set to the maximum, it will 
sometimes execute the left branch. Let us follow the right branch of 
the flowchart. At this point, we will check for two special situations 
that correspond to moves #1 and #4 in the game. 

For the first situation, i.e., the first move in a game, the algorithm 
will occupy any position on the board. That way, its behavior will be 
different every time and, thus, appear "intelligent." 
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^ START 




GET RANDOM 
NUMBER 




GET RANDOM 
MOVE, CHECKING 
FOR SPACE 
OCCUPIED 



(RETURN "\ 
W/ MOVE ) 
'NX J 

Fig. 1 1 .40: Board Analysis Flowchart 

For the next situation we must look at move #4. It is the computer's 
turn. In other words, the player started the game (move #1), the com- 
puter responded (move #2), then the player made his or her second 
move (move #3), and it is now the computer's turn. In short, in the 
game thus far, the player has played twice and the computer has 
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GET RANDOM 
MOVE 



(RETURN "\ 
W/ MOVE J 
'NX J 



Fig. 11 .40: Board Analysis Flowchart (Continued) 

played once. At this point, we want to check to see if the first three 
moves have all been made along one of the diagonals. If so, since the 
player has made two moves and the computer has made one, the row- 
sum of one of the diagonals will be "six." The algorithm must check 
explicitly for this. If the first 3 moves have all been made along a 
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diagonal, the computer must move to a side position. This is a special 
situation which must be built into the algorithm, or it cannot be 
guaranteed that the computer (assuming the highest IQ level) will win 
every time. This situation is illustrated in Figure 11.41. Note that if 
straightforward logic was used, the algorithm would play into one of 
the free corners since a threat exists from the player that he or she 
might play there, and thereby set up a trap situation. The results of 
such an action are shown in Figure 11.42. By looking at this illustra- 
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tion, it can be seen that such a move would result in a loss. However, 
let us examine what happens if we play on one of the sides. This situa- 
tion is illustrated in Figure 11 .43; it results in a draw. This is clearly the 
move that should be made. This is a relatively little-known trap in the 
game of Tic-Tac-Toe, and a provision must be built into the algorithm 
so that the computer will win. 
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If it was not the fourth move, or if there was not a diagonal trap set, 
the next thing the computer should do is to check to see if the player 
can set a trap. (Refer to the flowchart in Figure 11.40.) If the player 
can set a trap, the computer plays in the appropriate square to block 
it. Otherwise, the computer moves to the center square, if available; if 
that is not possible, it moves randomly to any position. 

Since this algorithm was built in an ad hoc fashion, it is difficult to 
prove that it wins or achieves a draw in all cases. It is suggested that you 
try it on a board or that you try out the actual program on the Games 
Board. You will discover that in all conditions under which it has been 
tested, the computer always wins or achieves a draw. If the computer 
keeps winning, however, its IQ level will drop, and eventually it will 
allow the player to win. As an example, some sequences obtained on 
the actual board are shown in Figure 11.44. 
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Fig. 1 1 .44: Actual Game Sequences 
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Suggested Modifications 

Exercise 11-1: Designate a special key on the Games Board that, when 
pressed will display the computer's IQ level. 

Exercise 11-2: Modify the program so that the IQ level of the com- 
puter can be changed at the beginning of each game. 

Credits 

The ad hoc algorithm which was described in this section is believed 
to be original. Eric Novikoff was the main contributor. "Scientific 
American" (selected issues from 1950 through 1978), as well as Dr. 
Harvard Holmes must also be credited with having provided several 
original ideas. 

Alternative Strategies 

Other strategies can also be considered. In particular, a short pro- 
gram can be designed by using tables of moves that correspond to 
various board patterns. The tables can be short because when sym- 
metries and rotations are taken into account, the number of situations 
that can be represented is limited. This type of approach results in a 
shorter program, however, the program is somewhat less interesting to 
design. 

Exercise 11-3: Design a Tic-Tac-Toe program using this type of table. 
THE PROGRAM 

The overall organization of the program is quite simple. It is shown 
in Figure 11 .42. The most complex part is the algorithm that is used to 
determine the next move by the computer. This algorithm, called 
"FINDMOVE," was previously described. 

Let us now examine the overall program organization. The cor- 
responding flowchart is shown in Figure 11.45. 

1 . The computer IQ level is set to 75 percent. 

2. The user's keystroke is read. 

3 . The key is checked for the value "F. " If it is an "F, " the player 
starts; otherwise the computer starts. Depending on the value 
of the key pressed, the flowchart continues into boxes 4 or 5, 
then to 6. 



247 



ADVANCED 6502 PROGRAMMING 




ARTIFICIAL INTELLIGENCE 



16 




BLANK ALL LIGHTS 
BUT WINNING ROW 




COMPUTER \. NO 
WIN? 



OUTPUT LOW TONE 
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OUTPUT HIGH TONE 



21 



DECREMENT I.Q. 
(NOT LESS THAN 1) 



INCREMENT I.Q. 
(NOT ABOVE 15) 



Fig. 1 1 .45: Tic-Tac-Toe Flowchart (Continued) 



If the player starts (PLAYER is not equal to "0"), then we move to 
the left side of the flowchart. 

7. The key, pressed by the player specifying his or her move, is 
read and the move is displayed on the board. 

8. The corresponding LED is lit on the board. It then becomes the 
computer's turn to play and the variable PLAYER is set to 
"0"in box 9. 

When exiting from box 6, if it is the computer's turn, we move to 
box 10. 

1 1 • The next move to be made by the computer must be computed 
at this time. 

This is the complex algorithm we have described above. 

11. Next, the computer's move is displayed. 

12. PLAYER is reset to "one" to reflect the fact that it is now the 
player's turn. 

After either party has moved, the board is checked for a winning se- 
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quence of lights in box 13. If there is not a winning sequence of lights, 
we move to the left on the flowchart. 

14. We next check to see if all moves have been exhausted: we 
check for move #9. If the ninth LED is lit and a winning situa- 
tion has not been detected, it is a draw, and all lights on the 
board must be flashed. 

15. We flash all the LEDs on the board. Then, we return to box 6 
and the next player plays. 

When exiting from box 13, if there is a win situation, this fact must 
be displayed: 

16. All of the lights are blanked except for the winning three LEDs. 
Next, it must be determined by the algorithm whether the 
player or the computer has won. 

17. A determination is made as to whether it was the player or the 
computer who won. If the computer has won, we branch to the 
right on the flowchart. 

18. A low frequency tone is sounded. 

19. The computer's IQ is decremented (to a minimum of 0). 
The situation for a player win, shown in boxes 20 and 21, is analo- 
gous. 

The general program flow is straightforward. Now, we shall examine 
the complete information. The subroutine which analyzes the board 
situation is called "ANALYZE" and uses "UPDATE" as a subroutine 
to compute the values of various board positions. 

Data Structures 

The main data structure used by this program is a linear table with 
three entry points that are used to store the eight possible square 
alignments on the board. When evaluating the board, the program 
will have to scan each possible alignment for three squares every time. 
In order to facilitate this process, all possible alignments have been 
listed explicitly, and the memory organization is shown in Figure 
11.46. 

The table is organized in three sections starting at RWPT1, 
RWPT2, and RWPT3 (RWPT stands for "row pointer"). For exam- 
ple, the first elements RWPT1, RWPT2, and RWPT3, for the first 
three-square sequence are looked at by the evaluation routine. The se- 
quence is: "0, 3, 6," as indicated by the arrows in Figure 11.43. The 
next three-square sequence is obtained by looking at the second entry 
in each RWPT table. It is "1, 4, 7," which is, in fact, the second col- 
umn on our LED matrix. 
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Fig. 1 1 .46: Tic-Tac-Toe Row Sequences in Memory 
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The table has been organized in three sections in order to facilitate 
access. To be able to access all of the elements successfully, it will be 
necessary to keep a running pointer that can be used as an index for ef- 
ficient table access. For example, if we number our generalized rows 
of sequences from to 7, "row" 3 will be accessed by retrieving 
elements at addresses RWPT1 + 3, RWPT2 + 3, RWPT3 + 3. (It is 
the sequence "0, 1,2," as seen in Figure 11.46.) 

Memory Organization 

Page contains the RWPT table which has just been described, as 
well as several other tables and variables. The rest of the low memory 
is shown in Figure 11.47. 

The GMBRD table occupies nine locations and stores the status of 
the board at all times. A value of "one" is used to indicate a position 
occupied by the player, and a value of "four" indicates a position oc- 
cupied by the computer. 

The SQSTAT table also occupies nine words of memory and is used 
to compute the tactical status of the board. 

The ROWSUM table occupies eight words and is used to compute 
the value of each of the eight generalized rows on the square. 

The RNDSCR table occupies six words and is used by the random 
number generator. 

The remaining locations are used by temporary variables, masks, and 
constants, as indicated in Figure 11.47. The role of each variable or con- 
stant will be explained as we describe each routine in the program. 

High Memory 

High memory locations are essentially reserved for input/output 
devices. Ports 1 and 3 are used, as well as interrupts. The correspond- 
ing memory map is shown in Figure 11.48. The interrupt- vector 
resides at addresses A67E and A67F. It will be modified at the begin- 
ning of the program so that interrupts will be generated automatically 
by the interval timer. These interrupts will be used to blink the LEDs 
on the board. 

Detailed Program Description 

At the beginning of each game, the intelligence level of the com- 
puter is set at 75 percent. Each time that the player wins, the IQ level 
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Fig. 1 1.47: Tic-Tac-Toe: Low Memory 
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Fig. 1 1.48: Tic-Tac-Toe: High Memory 
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will be raised by one point. Each time that the player loses, it will be 
decremented by one point. It is initially set at the value 12 decimal: 

START LDA #12 

STA INTEL Set IQ at 75% 

Initialization occurs next: 

RESTRT JSR INIT 

Let us examine the INIT subroutine which has just been called. It 
resides at address 0050 and appears on lines 0345 and following on the 
program listing. The first action of the initialization subroutine is to 
clear all low memory locations used by program variables. The loca- 
tions to be cleared are those between CLRST and CLREND (see lines 
41 and 57 of the program listing). Note that a seldom-used facility of 
the assembler — multiple labels for the same line — has been utilized 
to facilitate the clearing of the correct number of memory locations. 
Since it may be necessary to introduce more temporary variables in the 
course of program development, a specific label was assigned to the 
first location to be cleared, CLRST (memory location 18), and 
another to the last location to be cleared (CLREND). For example, 
memory location 18 corresponds both to CLRST and to GMBRD. 
The clearing operation should start at address CLRST and proceed 
forward fourty locations (CLREND-CLRST). Thus, we first load the 
number of locations to be cleared into index register X, then we use 
a loop to clear all of the required locations: 

INIT LDA #0 

LDX #CLREND-CLRST 
CLRALL STA CLRST.X Clear location 

DEX 

BPL CLRALL 

After low memory has been cleared, the two starting locations for the 
random number generator must be seeded. As usual, the low-counter 
of timer 1 is used: 

LDA TILL 

STA RNDSCR + 1 

STA RNDSCR + 4 
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Ports 1A, IB, and 3B are then configured as outputs. The appropriate 
pattern is loaded into the data direction registers: 

LDA #$FF 
STA DDR1A 
STA DDR IB 
STA DDR3B 

All LEDs on the board are turned off: 

LDA #0 
STA PORTIA 
STA PORT IB 

Next, the interrupt vector's address must be loaded with a new 
pointer. The address to be deposited there is the address of the inter- 
rupt handler, which has been designed to provide the regular blinking 
of the LEDs. (This process has already been explained in previous 
chapters.) The interrupt handler resides at address INTVEC. The high 
byte and the low byte of this address will be loaded in memory loca- 
tions IRQVH and IRQVL, respectively. A special assembler symbol is 
used to denote the low byte of the interrupt vector: #< INTVEC. Con- 
versely, the high byte is represented in assembly language by #> 
INTVEC. The new interrupt vector is loaded at the specified memory 
locations: 

JSR ACCESS 

LDA #< INTVEC 

STA IRQVL Low vector 

LDA # >INTVEC 

STA IRQVH High vector 

As usual, the interrupt-enable register must first be cleared, then the 
appropriate interrupt must be enabled: 

LDA #$7F 

STA IER Clear register 

LDA #$C0 

STA IER Enable interrupt 

Timer 1 is set to the free-running mode: 
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LDA #$40 
STA ACR 

The latch for timer 1 is loaded with the highest possible count, 
"FFFF": 

LDA #$FF 
STA TILL 
STA T1CH 

Finally, interrupts are enabled, the decimal mode is cleared as a 
precaution, and we terminate the initialization stage: 

CLI 

CLD 

RTS 

Back to the Main Program 

We are now at line 69 of the program listing. We read the next key 
closure on the keyboard: 

JSR GETKEY 

It is the first move. We must determine whether it is an "F" or not. If 
it is an "F," the player moves first; otherwise the computer moves 
first. Let us check it: 

CMP #$F 
BNE PLAYLP 

It is the player's turn and this information is stored in the temporary 
variable PLAYR, shown in Figure 11.44: 

LDA #01 
STA PLAYR 

It is time for a new move, and the move counter is incremented by 
one. Variable MOVNUM is stored in low memory. This is shown in 
Figure 11.44. It is now incremented: 

PLAYLP INC MOVNUM 
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At this point, PLAYR indicates whose turn it is to play. If it is set at 
"zero," it is the computer's turn. If it is set at "one," it is the player's 
turn. Let us check it: 

LDA PLAYR 
BEQ CMPMU 

We will assume here that it is the player's turn. PLAYR is reset to 
"zero" so that the computer will make its move next: 

DEC PLAYR 

The player's move is received by the PLRMV subroutine which will be 
described below. Let us allow the player to play: 

JSR PLRMV 

The move made by the player is specified at this point by the contents 
of the X register. Since it was the player's move, the corresponding 
code on the board's representation should be "01," which will be 
deposited in the accumulator: 

LDA #01 

We will now display the move on the board by blinking the proper 
LED. In addition, the corresponding ROWSUM will automatically be 
updated: 

JSR UPDATE 

The UPDATE routine will be described in detail below. Once the 
move has been made, we should check for a possible win. In the case 
of a win, the player has three blinking LEDs in a row, and the cor- 
responding row total is automatically equal to "three." We will 
therefore simply check all eight rows for a ROWSUM of three: 

LDA #03 
BNE WINTST 

At address WINTST a test is performed for a winning configura- 
tion. Index register Y is loaded with "seven" and used as a loop 
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counter. All of the rows, 7 through 0, are checked for the value 
"three": 

WINTST LDY #7 

TSTLP CMP ROWSUM,4 

BEQ WIN 

DEY 

BPL TSTLP 

Let us now continue with the player's move. We will examine the 
computer's move later. (The computer's move corresponds to lines 
83-88 of the program listing, which have not been described yet.) A 
maximum of nine moves is possible in this game. Let us verify whether 
or not we have reached the end of the game by checking the value of 
MOVNUM, which contains the number of the current move: 

LDA MOVNUM 
CMP #9 
BNE PLAYLP 

This is the end of our main loop. At this point, a branch occurs back 
to location PLAYLP, and execution of the main program resumes. 

If we had reached the end of the game at this point, the game would 
be a tie, since there has not been a winner yet. At this point all of the 
lights on the board would be set blinking and then the game would 
restart. Let us set the lights blinking: 

LDA #$FF 
STA LTMSKL 
STA LTMSKH 
BNE DLY 

The delay is introduced to guarantee that the lights will be blinked for 
a short interval. Let us now examine the end-of-game sequence. 

When a win situation is found, it is either the player's win or the 
computer's win. When the player wins, the row total is equal to 
"three." When the computer wins, the row total is equal to "twelve." 
(Recall that each computer move results in a value of "four" for the 
square. Three squares in a row will result in 3 x 4 = 12.) If the com- 
puter won, its IQ will be decremented: 
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WIN CMP#12 
BEQ INTDN 

At this point a jump would occur to INTDN, where the intelligence 
level will be decreased (intelligence lowered). 

A losing tone will be generated to indicate to the player that he or 
she has lost. The corresponding frequency constant is "FF," and it is 
stored at address FREQ: 

INTDN LDA #$FF 

STA FREQ 

The intelligence level will now be decreased unless it has already 
reached "zero" in which case it will remain at that value: 

LDA INTEL 
BEQ GTMSK 
DEC INTEL 

For a brief time the winning row will be illuminated on the board, and 
the end-of-game tone will be played. First, we clear all LEDs on the 
board: 

GTMSK LDA #0 

STA PORTIA 
STA PORT1B 

At this point, the number of the winning row is contained in index 
register Y. The three squares corresponding to that row will simply be 
retrieved from the RWPT table. (See Figure 11.43.) Let us display the 
first square: 

LDXRWPTl.Y 
JSR LEDLTR 

The LEDLTR routine will be described below. It lights up the 
square whose number is contained in register X. Let us now display 
the next square: 

LDX RWPT2,Y 
JSR LEDLTR 
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Then, the third one: 

LDX RWPT3.Y 
JSR LEDLTR 

At this point, we should turn off all unnecessary blinking LEDs on the 
board. The new pattern to be blinked is the one with the winning row 
and we must, therefore, change the LTMSKL mask: 

LDA PORTIA 
AND LTMSKL 
STA LTMSKL 

We now do the same for Port IB: 

LDA PORT IB 
AND LTMSKH 
STA LTMSKH 

Exercise 11-4: Subroutine LEDLTR on line 125 of the program listing 
has just lit the third LED on the board for the winning row. Im- 
mediately after that, we start reading the contents of Port 1A, and 
then Port IB. 

There is, however, the theoretical possibility that an interrupt might 
occur immediately after LEDLTR, that might change the contents of 
Port I A. Would this be a problem? If it would not be a problem, why 
not? If it would, modify the program to make it always work correct- 
ly. 

At this point, Ports A and B contain the appropriate pattern to light 
the winning row. If the player has won, the blink masks LTMSKL and 
LTMSKH contain the same pattern, and will blink the row. We are 
now ready to sound the win or lose tone. The duration is set at "FF": 

LDA #$FF 
STA DUR 

The frequency, FREQ, was set above. We simply have to play it: 

LDA FREQ 
JSR TONE 
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A delay must be provided: 

DLY JSR DELAY 

We are now ready to start a new game with the new intelligence level 
of the computer: 

JMP RESTART 

Back to WIN 

Let us now go back to line 103 of the program listing and examine 
the case in which the computer did not win (i.e., the player won). A 
different frequency constant is loaded at location FREQ: 

LDA #30 
STA FREQ 

Since the player won, the intelligence level of the computer will be 
raised this time. Before it is raised, however, it must be checked 
against the value "fifteen," which is our legal maximum: 

LDA INTEL 
CMP #$0F 
BEQ GTMSK 
INC INTEL 

The sequence was exactly analagous to the one in which the computer 
wins, except for a different tone frequency, and for the fact that the 
intelligence level of the computer is increased rather than decreased. 

The Computer Moves 

Let us now go back to line 83 of the program listing and describe 
what happens when the computer makes a move. Variable PL AYR is 
incremented, then a delay is provided to simulate "thinking time" for 
the computer: 

COMPMV INC PLAYR 
JSR DELAY 

The computer move is determined by the ANALYZ routine described 
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below: 

JSR ANALYZ 

The computer's move is entered as a "four" at the appropriate 
location on the board: 

LDA #04 
JSR UPDATE 

Next, we check all of the rows for the possibility of a computer win, 
i.e., for a total of "twelve": 

LDA #12 
WINTST LDY #7 

and so on. We are now back in the main program described previous- 

ly. 

When the program segment outlined above is compared to the one 
that is used for the player's move, we find that the primary difference 
between the two is that the move was specified by the ANALYZ 
routine rather than being picked up from the keyboard. This routine is 
the key to the level of intelligence of the algorithm. Let us now ex- 
amine it. 

Subroutines 

The ANAL YZE Subroutine 

The ANALYZ subroutine begins at line 143 of the program listing. 
The corresponding conceptual flowchart is shown in Figure 1 1 .40. In 
the ANALYZ subroutine the ODDMSK is first set to "zero." 

ANALYZ LDA #0 

STA ODDMSK 

We now check for the possibility of a computer win during its next 
turn. If that possibility exists, we clearly must play into the winning 
square. This will end the game. A winning situation is characterized by 
a total of "eight" in the corresponding row; therefore let us deposit 
the total "eight" into the accumulator: 
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LDA #08 

A winning situation will occur when the squares in rows 1 , 2, or 3 all 
total "three" at the same time. Let us set our filter variable, X, for the 
number of rows that qualify, to "three": 

LDX #03 

We are now ready to use the FINDMV routine: 
JSR FINDMV 

The FINDMV routine will be described below. It must be called with 
the specified ROWSUM in A and with the number of times a match is 
found in X. It will systematically check all of the rows and squares. If 
a square is found, it exits with a specified square number in X and the 
Z flag is set to "0." Let us test it: 

BNE DONE 

If a winning move has been found, the ANALYZ routine exits. Unfor- 
tunately, this is not usually the case, and more analysis must be done. 

The next special situation to be checked is to see if the player has a 
winning move. If so, it must be blocked. A winning situation for the 
player is indicated by a row total of "2." Let us load "2" into the ac- 
cumulator and repeat the previous process: 

LDA #02 
LDA #03 
JSR FINDMV 
BNE DONE 

If the player could make a winning move, this is the square where the 
computer should play and we exit to DONE; otherwise, the situation 
should be analyzed further. 

We will now check to see if the computer can implement a trap. A 
trap corresponds to a situation in which a computer move has already 
been made in the same row. We would like to play at the intersection 
of two rows containing computer moves. This was explained above 
when the algorithm was described. This situation is characterized by A 
= 4 and X = 2. Let us load the registers with the appropriate values 
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and call the FINDMV routine: 

LDA #04 
LDX #02 
JSR FINDMV 
BNE DONE 

If we succeed, we exit to DONE; otherwise, we proceed down the 
flowchart diagrammed in Figure 11.40. 

It is at this point that the computer can demonstrate either in- 
telligent or ill-advised play. The behavior of the computer will be 
determined by its intelligence level. We will now obtain a random 
number and compare it to the computer's IQ. If the random number 
exceeds the computer's IQ, we will proceed to the left side of the 
flowchart in Figure 1 1.40 and make an ill-advised move (i.e., a random 
one). If the random number does not exceed the computer's IQ, we 
will make an intelligent move on the right side of the flowchart. Let us 
generate the random number: 

JSR RANDOM 

We truncate the random number to its right byte so that it does not ex- 
ceed fifteen: 

AND #$0F 

and we compare it to the current IQ of the computer: 

CMP INTEL 
BEQ OK 
BCS RNDMV 

If the random number is higher than the IQ level stored in INTEL, we 
branch to RANDMV and play a random move. At this point, we will 
assume that the random number was not greater than the IQ level, and 
that the computer will play an intelligent move. We now proceed from 
line 162 (location "OK"). 

We will first check to see if this is move #1; then we check to see if 
this is move #4. Let us check for move #1: 

OK LPX MOVNUM 

CPX #1 
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If it is move #1 , we occupy any square: 

BEQ RNDMV 
Let us now check for move #4: 

CPX #4 

If it is not move #4, we will check to see if the player can set a trap. 
This will be performed at location TRAPCK. Let us assume here that 
it is move #4. 

BNE TRAPCK 

This section will check both diagonals for the possibility of the se- 
quence player-computer-player. If this sequnce is found, we will play 
to the side. Otherwise, we will go back to the mainstream of this 
routine and check to see if the player can set a trap. The combination 
player-computer-player in a row is detected when the row totals 
"six." Therefore, we load the value "six" into the accumulator and 
check the corresponding diagonal. By coincidence, diagonals corre- 
spond to the sixth and seventh entires in our RWPT table. (See 
Figure 1 1 .46.) Let us do it: 

LDX #6 
TXA 

CMP ROWSUM.X 
REQ ODDRND 

If a match is found, we branch to address ODDRND, where we will 
play to the side. This will be described below. If a match is not found 
we check the next diagonal: 

INX 

CMP ROWSUM.X 
BEQ ODDRND 

If, at that point, the test also fails for the second diagonal, we will 
check to see if the player can set a trap: 
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Checking To See If the Player Can Set a Trap (TRAPCK) 

The possibility of a trap for the player is identified (as in the case of 
the computer), when two intersecting rows each contain only a 
player's move. This has been explained in the description of the 
algorithm above. The value of a row which is a candidate for a trap is 
thereby equal to "one" (one player's move). The parameters must, 
therefore, be set to A = 1, and X = 2 before we can call the 
FINDMV routine: 

TRAPCK LDA #1 
LDX #2 
JSR FINDMV 
BNE DONE 

If the proper location for a trap can be found, the next move is to play 
there. Otherwise, if possible, the computer moves to the center or, if 
the center is occupied, it makes a random move on the side. 

LDX GMBRD + 4 
BNE RNDMV 
LDX #5 
BNE DONE 

Playing a Random Move on the Side 

The four sides on the board are numbered externally 2,4,6 and 8, or 
internally 1,3,5, and 7. Any odd internal number specified for a move 
will result in our occupying a side position. If we want to occupy a side 
position, we simply load the value "one" in ODDMSK, and we 
guarantee that the random number generated will be one of the four 
corners. This is performed by entering at address ODDRND: 

ODDRND LDA #1 

STA ODDMSK 



Generally, however, we may want to make a random move. This will 
be accomplished by generating and using any random number that is 
reasonable, i.e., by setting ODDMSK to "0" prior to entering at ad- 
dress RNDMV. Let us obtain a random number: 
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RNDMV JSR RANDOM 

Let us strip off the left byte: 
AND #$0F 

Then let us OR this random number with the pattern stored in ODDMSK. 
If the mask had been set to "0," it would have no effect on the random 
number. If the mask had been set to "1," however, it would result in 
our playing into one of the corners (the center is occupied here): 

ORA ODDMSK 

Since the random number which was generated was between "0" and 
"15," we must check to be sure that it does not exceed "9"; other- 
wise, it cannot be used: 

CMP #9 
BCS RNDMV 

We must now check to make sure that the space into which we want 
to move is not occupied. We load the square's number into index 
register X and verify the square's status by reading the appropriate en- 
try of the GMBRD table (see the memory map in Figure 1 1 .47): 

TAX 

LDA GMBRD.X 

If there is any entry other than "0" in this square, it means that it is 
occupied and we must generate another random number: 

BNE RNDMV 

We have selected a valid square and will now play into it. When we ex- 
it from this routine, the external LED number should be contained in 
X. It is obtained by adding "1" to the current contents of X, which 
happens to be the internal LED number: 

INX 

DONE RTS 
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FINDMV Subroutine 

This subroutine will evaluate the board until it finds a square which 
meets the specifications in the A and the X registers. The accumulator 
A contains a specified row-sum that a row must meet in order to 
qualify. Index register X specifies the number of times that a par- 
ticular square must belong to a row whose row-sum is equal to the one 
specified by A. 

The FINDMV subroutine starts with a square status of "0" for 
every square on the board. Every time it finds a square that meets the 
row-sum specification, it will increase its status by "1." Thus, at the 
end of the evaluation process, a square with a status of "1" is a square 
which meets the row-sum specifications once. A square with a status 
of "2" is one that meets the specification twice, etc. 

The final selection is performed by FINDMV, which checks the 
value of each square in turn. As soon as it finds a square whose status 
matches the number contained in register X, it selects that square 
as one that meets the initial specification. 

The complete flowchart for FINDMV is shown in Figure 11.49. 
Essentially, the subroutine operates in three steps. These steps are in- 
dicated in Figure 11.49. Step 1 is the initialization phase. Step 2 cor- 
responds to the selection of all squares that meet the row-sum 
specifications contained in register A. The status of every empty 
square in a row that meets this specification is increased by one as all 
the rows are scanned. Step 3 is the final selection phase. In this phase, 
each square is looked at in turn until one is found whose status match- 
es the value contained in X. As soon as one is found, the process 
stops. That square is the one that will be played by the computer. If a 
square is not found, the routine will exit, with the index X having 
decremented to "0," and this will be used as a failure flag for the call- 
ing routine. 

Let us now examine the corresponding program. It starts at line 204 
in the program listing. 

Step 1: Initialization 

Index registers X and A will be used in the body of this subroutine. 
Their initial contents must first be preserved in temporary memory 
locations. Addresses TEMPI and TEMP2 are used for that purpose. 
(See Figure 1 1 .47 for the memory map.) 

Let us preserve X and A: 
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FINDMV STX TEMP2 
STA TEMPI 

The status of the board is then cleared. Each square's status must be 
set to "0." This is accomplished by loading the value "0" into the ac- 
cumulator, then going through a nine cycle loop that will clear the 
status of each square in turn: 

LDA #0 
LDY #8 

CLRLP STA SQSTAT.4 

DEY 

BPL CLRLP 



Step 2: Computing the Status of Each Square 

Each of the eight possible row-sums will now be examined in turn. 
If the row-sum matches the value specified in the accumulator on 
entry, each empty square within the specified row will have its status 
incremented by "1." If the row-sum value does not meet the minimum, 
the next one will be examined. Index register Y is used as a row pointer. 
The RWPT table described at the beginning of this program and shown 
in Figure 11.46 will be used to successively retrieve the three squares 
that form every row. Let us first initialize our counter: 

LDY #7 

Now, we will check the value of the corresponding row-sum: 

CHEKLP LDA TEMPI 

CMP ROWSUM.Y 
BNE NOCHEK 

Let us assume at this point that the row-sum is indeed the correct one. 
We must now examine each of the three squares in the row. If the 
square is empty, we increment its status. The first step is to obtain the 
square's value by looking it up in the table, using index register Y as a 
displacement, and using addresses RWPT1, RWPT2, and RWPT3 
successively as entry points into the row table. Let us try it for the first 
square: 
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LDX RWPTl.Y 

Index register X now contains the square number. If the square is 
empty, a new subroutine, CNTSUB, is used to increment its status: 

JSR CNTSUB 

It will be described below. 
Let us now do the same for the second and third squares: 

LDX RWPT2.Y 
JSR CNTSUB 
LDX RWPT3.Y 
JSR CNTSUB 

We have now completely scanned one row. Let us look to see if any 
more rows need to be checked: 

NOCHEK DEY 

BPL CHECKLP 

The process is repeated until all the rows have been checked. At this 
point, we enter into step 3 of FINDMV. (Refer to the flowchart in 
Figure 11.49.) 

Step 3: Final Selection 

Index register X will be used as a square pointer. It will start with 
square #9 and continue to examine squares until one is found that 
meets the additional X register specifications, i.e., the number of 
times that the given square belongs to a row with the appropriate row- 
sum value. Let us initialize it: 

LDX #9 

Now, we compare the value of the square status with the value of the 
specified X parameter: 

FNMTCH LDA TEMP2 

AND SQSTAT-l.X 
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If the square status matches the value of the parameter, we select this 
square: 

BNE FOUND 
Otherwise, we try the next one: 
DEX 

BNE FNMTCH 
FOUND RTS 

Exercise 11-5: Why are "AND" and "BNE" rather than "CMP" and 
"BEQ" used to find a matching square above? (Hint: decide what the 
difference in the program 's strategy would be.) 

COUNTSUB Subroutine 

This subroutine is used exclusively by the FINDMV subroutine and 
increments the status of the square whose number is in register X, if 
the square is empty. First, it examines the status of the square by look- 
ing for its code in the GMBRD table: 

CNTSUB LDA GMBRD.X 
BNE NOCNT 

If the square is occupied, an exit occurs. If it is not, the status value of 
the square is incremented: 

INC SQSTAT.X 
NOCNT RTS 

UPDA TE Subroutine 

Every time a move is made, it must be displayed on the board. 
Then, the appropriate code must be stored in the board representa- 
tion, i.e., in the table GMBRD. Finally, the new ROWSUMs must be 
computed and stored at the appropriate locations. These functions are 
accomplished by the UPDATE subroutine. 

The player's code is contained in the accumulator. The position into 
which the move is made is contained in register X. Since the number in 
index register X is the value of an external LED, it is first decremented 
in order to match the actual internal LED number: 



273 



ADVANCED 6502 PROGRAMMING 



UPDATE DEX 

The value must now be stored in the appropriate location of the GMBRD 
table which contains the internal representation of the board: 

STA GMBRD.X 

Note that the value of X is simply used as a displacement into the 
table. However, the accumulator happens to contain the appropriate 
code that is merely written at the specified location. At this point, UP- 
DATE would like to display the move on the LEDs. It must first 
decide, however, whether to light a steady LED or make it blink. To 
do this, it must determine whether it is the player's move or the com- 
puter's move. It does this by examining the code contained in the ac- 
cumulator. If the code is "four," it is the computer's move. If the 
code is "1," it is the player's move. Let us examine it: 

CMP #04 
BEQ NOBLNK 

If it is the computer's move, a branch will occur to address NOBLNK; 
otherwise, we proceed. Let us assume for the time being that it was the 
player's move: 

JSR LIGHT 

The LIGHT subroutine is used to set the bit blinking and will be 
described below. Upon exit from LIGHT, the accumulator contains 
the bit in the position that is required to set the LED blinking. At this 
point, the blink masks should be updated: 

ORA LTMSKL 
STA LTMSKL 

If the carry was "zero" upon completion of LIGHT, one of the bits 
zero through seven had been set and we are done: 

BCC NOBLNK 

Otherwise, if the carry had been set to 1, it would mean that LED #9 
had to be set, i.e., that the high order part of the mask had to be 
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modified. Let us do it: 

LDA #01 
STA LTMSKH 

At this point, the LED masks are properly configured and we can give 
the order to light the LEDs: 

NOBLNK JSR LEDLTR 

The LEDLTR routine lights up the LED specified by register X. Note 
that if it was a computer move, this LED will remain steadily on. If it 
was a player's move, this LED will be turned off and on automatically 
as interrupts occur. 

Next, we must update all row-sums. Index register X is used as a 
row pointer. We will look at all eight rows in turn. In anticipation of 
the addition, the carry bit is cleared: 

LDX #7 
ADDROW CLC 

The first square of row eight is examined first: 

LDY RWPTl.X 

Note that index register Y will contain the internal square number 
following this instruction. This will immediately be used for another 
indexed operation. The contents of the square will be read so that the 
new row-sum may be computed. (The row-sum for that row may or 
may not be the same as before. No special provision has been made 
for restricting the search to the two or three rows affected.) All rows 
are examined in turn, and all row-sums are re-computed to keep the 
program simple. 
Let us obtain the current square's value: 

LDA GMBRD.Y 

The GMBRD table is accessed using index register Y as a displace- 
ment. Note that the two instructions shown above implement a two- 
level indexing operation. This is a most efficient data retrieval tech- 
nique. At this point, the accumulator contains the value of the first 
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square. It will be added to the value of the two following squares. The 
process will now be repeated: 

LDY RWPT2.X 
ADC GMBRD, Y 

The number of the second square has been looked up by the LDY in- 
struction and its value stored in Y. The addition instruction looks up 
the actual value of that square from GMBRD, and adds that value to 
the accumulator. This process is performed one more time for the 
third square: 

LDY RWPT3.X 
ADC GMBRD, Y 

The final value contained in the accumulator is then stored in the 
ROWSUM table at the position specified by the value of index register 
X (the row index): 

STA ROWSUM.X 

The next row will now be scanned: 

DEX 

BPL ADDROW 
If X becomes negative, we are done: 
RTS 

LED LIGHTER Subroutine 

This subroutine assumes upon entry that register X contains the in- 
ternal LED number of the LED on the board which must be turned on. 
The subroutine will therefore turn that LED on using the LIGHT 
subroutine, which converts a number in register X into a bit pattern in 
the accumulator for the purpose of turning on the specified LED: 

LEDLTR JSR LIGHT 

At this point, either Port 1A or Port IB must be updated. Let us 
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assume initially that it is Port 1A (if it is not Port 1A, which we can 
find out by examining the carry bit below, then the pattern contained 
in the accumulator is all zeroes and will not change the value of Port 
1A): 

ORA PORTIA 
STA PORTIA 
BCC LTRDN 

The carry bit is tested. If it has been set to 1 by the LIGHT subroutine, 
then LED #9 must be turned on. This is accomplished by sending a 
"1" to Port IB: 

LDA #1 
STA PORTB 
RTS 

PLRMV Subroutine (Player's Move) 

This subroutine obtains one correct move from the player. It chirps 
to get his or her attention and waits for a keyboard input. If a key 
other than 1 through 9 is pressed, it will be ignored. Whenever the 
subroutine gets a move, it verifies that the square on the board is in- 
deed empty. If the square is not empty, the subroutine will ignore the 
player's move. Let us first generate a chirp in order to get the player's 
attention: 

PLRMV LDA #$80 

STA DUR 
LDA #$10 
JSR TONE 

Now, let us capture the key closure: 

KEYIN JSR GETKEY 

We must now check to see that the key that is pressed is between 1 and 
9. Let us first check to see that it is not greater than or equal to 10: 

CMP #10 
BCS KEYIN 

Let us now verify that it is not equal to "zero": 
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TAX 

BEQ KEYIN 



Finally, let us verify that it does not correspond to a square that is 
already occupied: 



Exercise 11-6: Modify the PLRMV subroutine above so that a new 
chirp is generated every time a player makes an incorrect move. To tell 
the player that he or she has made an incorrect move, you should 
generate a sequence of two chirps, using a different tone than the one 
used previously. 

LIGHT Subroutine 

This subroutine accepts an LED number in register X. It returns 
with the pattern to be output to the LEDs in the accumulator. If LED 
9 is to be lit (X = 8), the carry bit is set. This subroutine is straightfor- 
ward and has been described previously: 

LIGHT STX TEMPI 



SEC 
ROL A 
DEX 

BPL SHIFT 
LDX TEMPI 
RTS 



DELA Y Subroutine 

This is a classic delay subroutine that uses two nested loops that 
have a few extra instructions within the loop that are designed to waste 
time: 



LDA GMBRD-l.X 
BNE KEYIN 
RTS 



DELAY 

DL1 

DL2 



LDY #$FF 
LDX #$FF 
ROL DUR 
ROR DUR 
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DEX 
BNE DL2 
DEY 

BNE DL1 
RTS 

Interrupt Handling Routine 

Every time that an interrupt is received, the appropriate LEDs will 
be complemented (turned off if on, or on if off). The positions of the 
LEDs to be blinked are specified by the contents of the LTMSK 
masks. Two bytes are used in memory for the low and high halves, 
respectively. (See Figure 11.47 for the memory map.) 

Turning the bits on or off is accomplished by an exclusive-OR in- 
struction that is the equivalent of a logical complementation. Since 
this routine uses the accumulator, the contents of A must be preserved 
at the beginning of the routine. It is pushed onto the stack and 
restored upon exit. The subroutine is shown below: 

INTVEC PHA 

LDA PORTIA 
EOR LTMSKL 
STA PORTIA 
LDA PORT IB 
EOR LTMSKH 
STA PORT IB 
LDA TILL 
PLA 
RTI 

Exercise 11-7: Notice the LDA TILL instruction above. The next in- 
struction in this subroutine is PLA. It will overwrite the contents of 
the accumulator with the words pulled from the stack. The contents of 
the accumulator, as read from TILL, will therefore be immediately 
destroyed. Is this a programming error that was accidentally left in 
this program? If not, what purpose does it serve? (Hint: this situation 
has been encountered before. Refer to one of the earlier chapters.) 

INITIALIZE Subroutine 

This subroutine was described in the body of the main program 
above. 
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RANDOM and TONE Subroutines 

These two subroutines were described in previous programs. 



SUMMARY 

This program was the most complex we have developed. Several 
algorithms have been presented, and one complete implementation of 
an ad hoc algorithm has been studied in great detail. Readers interested 
in games of strategy and programming are encouraged to implement 
an alternative algorithm. 



LINE * LOC 



0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0014 

0017 

0018 

001? 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

002? 
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0031 

0032 

0033 

0034 

0035 

0035 

0035 

0035 

0035 

0035 

0035 

0035 

0036 

0036 

0036 

0036 

0036 

0036 

0036 

0036 

0037 



0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

OOOA 

000B 

oooc 

000D 
OOOE 
000F 
0010 



00 
01 
02 
00 
03 
06 
00 
02 
03 
04 
05 
01 
04 
07 
04 
04 
06 



LINE 
' 'TICTAC 

* PROGRAM TO PLAY TIC-TAC-TOE ON SYM-1 

(COMPUTER WITH 3X3 LED MATRIX AND HEX KYBD. 
> AT BEGINNING OF GAME* IF 'F' KEY IS 

(PRESSED, PLAYER GOES FIRST , ANY OTHER KEY. 
(COMPUTER GOES FIRST. THEREAFTER , TO MAKE 
(A MOVE, PRESS KEY CORRESPONDING TO NUMBER 
(OF SQUARE DESIRED. 

J LINKAGES i 

GETKEY = $100 
ACCESS = $8B86 

I/O! 



PORTIA 

DIIR1A 

P0RT1B 

DDR IB 

IER 

ACR 

TILL 

T1CH 

P0RT3B 

DDR3B 

IRCIVL 

IRQVH 



*A001 
*A003 
«A000 
SA002 
tAOOE 
$AOOB 
*A004 
*A005 
»ACOO 
«AC02 
*A67E 
$A67F 



(** 6522 VIA »1 . . 



i INTERRUPT ENABLE REGISTER. 
(AUXILIARY CONTROL REGISTER. 

(TIMER 1 LATCH LOy. 

i TIMER 1 LATCH HIGH. 
>**6522 VIA *3. . . . 



TABLE OF SQUARES IN BOARD'S 8 ROUS, 
* = 

RUPT1 .BYTE 0rl,2r0>3,6r0,2 



RUPT3 . BYTE 6,7, 



Fig. 11.50: Tic-Tac-Toe Program 
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0037 


0011 


07 












0037 


0012 


08 












0037 


0013 


02 












0037 


0014 


05 












0037 


0015 


08 












0037 


0016 


08 












0037 


0017 


06 












0038 


0018 














0039 


0018 








(VARIABLE STORAGES! 




0040 


0018 












(1ST LOC. TO BE CLEARED BY 'INIT'. 


0041 


0018 








CLRST 




0042 


0018 








GMBRD 


*=*+9 


( GAME BOARD: PLAYER'S POSITIONS ON 


0043 


0021 










i BOARD AS *01=PLAYER» $04=COMPUTER . 


0044 


0021 








SHSTAT 


*=*+9 


(SQUARE'S TACTICAL STATUS. 


0045 


0O2A 








ROWSUM 


*=*+8 


J SUM OF VALUES OF SQUARES IN 


0046 


0032 










(ROW. WHERE 




0047 


0032 










(4=C0MPUTER 


. 0~EMPTY. 


0048 


0032 








RNBSCR 


* = * + 6 




0049 


003B 








TEMPI 


* = *+l 




0050 


0039 








TEMP2 


*=* + l 




0051 


003A 








MOVNUM 


* = *+l 


.NUntJtK ur LUKKtM 1 nuvtL. 


0052 


003B 








PLAYR 


*=* + l 


rWHU b 1 UKN 11 13. 


0053 


003C 








LTMSKH 


* = * + l 


.HIGH UKDtK CLINK MHbK t-Uf\ Ltil.i a 


0054 


003D 








LTMSKL 


*=*+l 


nil nr.Ti — n camc 
.LOW OKUtK bAML . 


0055 


003E 








DUR 


* = *+l i 


DURATION FOR TONES* 


0054 


003F 








FREQ 


* = *+l 


(FREQUENCY OF TONES. 


0057 


0040 








CLREND 




(LAST LOC TO BE CLEARED BY 'INIT'. 


0058 


0040 








ODDMSK 


+ 1 


(MAKES F'RODUCT OF RANDOM MOVE 


0059 


0041 










(GENERATOR 


3DD TO PICK CORNER. 


0060 


0041 








INTEL 


*=*+! 


(INTELLIGENCE QUOTIENT. 


0061 


0042 














0062 


0042 








( ****** MAIN PROGRAM 


****** 


0063 


0042 














0064 


0042 










* = 1.200 




0065 


0200 














0064 


0200 


A9 


OC 




START 


LDA #12 




0067 


0202 


85 


41 






STA INTEL 


:cct T n AT y^v 


0068 


0204 


20 


50 


00 


RESTRT 


JSR INIT 


JTNTTTAI T7F PROGRAM. 


0069 


0207 


20 


00 


01 




JSR GETKEY 


(GET FIRST MOVE DETERMINER. 


0070 


020A 


C9 


OF 






CMP #*F 


.IS IT F ? 


0071 


020C 


BO 


04 






BNE PLAYLP 




0072 


020E 


A9 


01 






LDA #01 


*VCC C/l AVCTO CTDCT 

nr.hf rLflith r lha [ . 


0073 


0210 


B5 


3B 






STA PLAYR 




0074 


0212 


E6 


3A 




PLAYLP 


INC MOVNUM 


(COUNT THE MOVES. 


0075 


0214 


A5 


3B 






LDA PLAYR 


(WHO'S TURN? 


0076 


0216 


FO 


OE 






BEQ COMPMV 


(IF Of COMPUTER'S MOVE. 


0077 


0218 


C6 


3B 






DEC PLAYR 


.PLAYER S TURN. LUnrU 1 EK Nb.X 1 , 


0078 


021A 


20 


80 


03 




JSR PLRMV 


. btl rLAYLK b MUVfc. » 


0079 


021D 


A9 


01 






LDA #01 


. b 1 UKt rLfti tK b rltl.t. 


0080 


021F 


20 


40 


03 




JSR UPDATE 


(PLAY IT. AND UPDATE ROWSUMS. 


0081 


0222 


A9 


03 






LDA #03 


(LOAD PATTERN FOR WIN SEARCH. 


0082 


0224 


DO 


OF 






BNE UINTST 


(CHECK FOR WIN . 


0083 


0226 


E6 


3B 




COMPMV 


INC PLAYR 


(COMPUTER'S TURN, PLAYER NEXT. 


0084 


0228 


20 


A4 


03 




JSR DELAY 


(TIME FOR COMPUTER TO 'THINK'. 


0085 


022B 


20 


9B 


02 




JSR ANALYZ 


(FIND COMPUTER'S MOVE. 


0086 


022E 


A9 


04 






LDA #04 


(STORE COMPUTER'S PIECE. 


0087 


0230 


20 


40 


03 




JSR UPDATE 


(PLAY IT. 


0088 


0233 


A9 


OC 






LDA #12 


(LOAD PATTERN FOR WIN SEARCH. 


0089 


0235 


AO 


07 




WINTST 


LEY #7 


(L00P7X TO CHECK ROWSUMS 


0090 


0237 


D9 


2A 


00 


TSTLP 


CMP ROWSUM. Y 


(FOR WINNING PATTERN. 


0091 


023A 


FO 


11 






BEQ WIN 


(WIN IF PATTERN FOUND. 


0092 


023C 


88 








DEY 


(LOOP AND 


0093 


023B 


10 


F8 






BPL TSTLP 


(TRY AGAIN. 


0094 


023F 


A5 


3A 






LDA MOVNUM 


(IF MOVE NUMBER = 9. 


O095 


0241 


C9 


09 






CMP #9 


(THEN GAME IS TIE. 


0096 


0243 


DO 


CD 






BNE PLAYLP 


(KEEP PLAYING IF NOT. 


0097 


0245 


A9 


FF 






LDA #*FF 


(SET ALL. LIGHTS TO BLINKING. 


0098 


0247 


85 


3D 






STA LTMSKL 




0099 


0249 


85 


3C 






STA LTMSKH 




0100 


024B 


DO 


4A 






BNE DLY 


(KEEP THEM BLINKING A WHILE. 


0101 


024D 


C9 


OC 




UIN 


CMP #12 


(COMPUTER WIN? 


0102 


024F 


FO 


OE 






BEQ INTDN 


(IF YES. I.Q. DOWN. 
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0103 

0104 

0105 

0104 

0107 

0108 

0109 

0110 

0111 

0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 

0161 

0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 



0251 

0253 

0255 

0257 

0259 

025B 

025D 

025F 

0261 

0263 

0265 

0267 

0269 

026B 

026E 

0271 

0273 

0273 

0273 

0276 

0278 

027B 

02711 

0280 

0283 

0285 

0287 

028ft 

028C 

02BE 

0290 

0292 

0294 

0297 

029A 

029D 

029H 

029D 

029D 

029D 

029D 

029F 

02A1 

02ft3 

02A5 

02AB 

02AA 

02AC 

02AE 

02B1 

02B3 

02B5 

02B7 

02BA 

02BC 

02BF 

02C1 

02C3 

02C5 

02C7 

02C9 

02CB 

02CD 

02CF 

02D1 

02D3 

02D4 

02D6 

02D8 

02D9 

02DB 

02DB 



A9 IE 
85 3F 
A5 41 
C9 OF 
FO OE 
E6 41 
110 OA 
A9 FF 
85 3F 
A5 41 
FO 02 
C6 41 
A9 00 
8D 01 
8D 00 AO 
B6 00 



AO 



20 6F 03 
B6 08 
20 6F 03 
B6 10 
20 6F 03 
AD 01 AO 
25 311 
85 3D 
AD 00 AO 
25 3C 
85 3C 
A9 FF 
85 3E 
A5 3F 
20 AD 00 
20 A4 03 
4C 04 02 



A9 00 
85 40 
A9 08 

A2 03 
20 04 03 
HO 59 
A9 02 
A2 03 
20 04 03 
DO 50 
A9 04 
A2 02 
20 04 03 
DO 47 
20 9A 00 
29 OF 
C5 41 
FO 02 
BO 2B 
A6 3A 
EO 01 
FO 25 
EO 04 

no oc 

A2 06 
8A 

D5 2A 
FO 16 
E8 

115 2A 
FO 11 
A9 01 



LDA 


t30 


JL.OAD FREQ* CONST FOR WIN TONE- 


STA 


FREQ 




LDA 


INTEL 






#$0F 


?I.Q. AS HIGH AS POSSIBLE? 


BED 


GTMSK 


ilF YES. DON'T CHANGE IT, 




INTEL 


i RAISE I . Q . 


BNE 


GTMSK 


;go flash row. 


LDA 


**FF 


UOAD FREQ. CONST. FOR LOSE TONE 


STA 


FREQ 




LHA 


INTEL 


il.Q. - 0? 


BEG 


GTMSK 


JIF YES. DON'T DECREMENT! 


DEC 


INTEL 


il.Q. 110 UN . 


LDA 


*0 


f CLEAR ALL [-EDS , 


STA 


PORTIA 




STA 


PGRT1B 




LDX 


RWPT1 ,Y 


.GET BIT IN ACCOM . TO LIGHT 


» LED CORRESPONDING TO 1ST SQUARE 


i IN 


WINNING 


ROW * 


JSR 


LEDLTR 




LDX 


RWPT2 . Y 


5 GET SECOND BIT. 


JSR 


LEDLTR 




LDX 


RWPT3 . Y 


? GET 3RD BIT. 


JSR 


LEDLTR 




LDA 


PORTIA 


i MASK OUT UNNECESSARY BITS IN 


AND 


LTMSKL 


.BLINK MASKS. 


STA 


LTMSKL 




LDA 


P0RT1B 




AND 


LTMSKH 




STA 


LTMSKH 




LDA 


**FF 


» SET WIN/LOSE TONE DURATION. 


STA 


nuR 




LDA 


FREQ 


!GET FREQUENCY. 


JSR 


TONE 


.PLAY TONE. 


JSR 


DELAY 


? DELAY TO SHOW WIN OR TIE. 


JMP 


RESTRT 


i START NEW GAME. DON'T CHNG. I.Q. 



) ****** SUBROUTINE 'ANALYZE' ****** 

f DOES A STATIC ANALYSIS OF GAME BOARD, AND 

! RETURNS WITH A MOVE IN REGISTER X. 



ANALYZ LDA 
STA 
LDA 

LDX 
JSR 
BNE 
LDA 
LDX 
JSR 
BNE 
LDA 
LDX 
JSR 
BNE 
JSR 
ANB 
CMP 
BEQ 
BCS 

OK LDX 
CPX 
BEQ 
CPX 
BNE 
LDX 
TXA 
CMP 
BEQ 
INX 
CMP 
BEQ 

TRAPCK LDA 



♦ 

ODDMSK 

#08 

*03 

FINBMV 
HONE 
t02 
*03 

FINIIMV 
HONE 
t04 
*02 

FINDMV 

DONE 

RANDOM 

t*OF 

INTEL 

OK 

RNDMV 

MOVNUM 

tl 

RNItMV 
*4 

TRAPCK 
*6 

ROWSUM.X 
ODDRND 

ROWSUM.X 

ODDRND 

*1 



(SET MASK THAT MAKES RANDOM MOVES 

■BE SIDES TO 0. 

» CHECK FOR WINNING MOVE FOR 

i COMPUTER. 

JIF FOUND, RETURN. 

SCHECK FOR WINNING MOVE FOR 

■PLAYER. 

:IF FOUND, RETURN. 

-'CAN COMPUTER SET A TRAP? 



• IF YES, PLAY IT. 

? GET A RANDOM NUMBER... 

f . . . AND MAKE IT 0-15. . . 

!FOR USE AS STUPID/SMART DETERMINER 

I IF BOTH ARE EQUAL. SKIP TFST 

?IF RNDt > INTEL. PLAY A DUMB MOVE, 

!1ST MOVE? 

ilF YES . PLAY AMY SQUARE, 

>4TH MOVE? 

."IF NOT, CONTINUE. 

ilOAD INDEX TO 1ST DIAG . ROWSUM . 
.LOAD SUM OF ROW HAVING P-C-P . 
5CHECK IF 1ST DIAG. IS P-C-P 
■ IF YES, PLAY SIDE. 
5 CHECK NEXT DIAG. ROWSUM 



i CAN PLAYER SET A TRAP? 
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0175 


02DF 


A2 


02 






LDX 


*2 








0174 


02E1 


20 


04 


03 




JSR 


FINDMV 








0177 


02E4 


DO 


ID 






BNE 


DONE 




■ IF YES ■ PLAY BLOCK. 




0178 


02E6 


A6 


1C 






LDX 


GMBRD+4 




■ IS CENTER 




0179 


02E8 


DO 


08 






BNE 


RNDMV 




(OCCUPIED? 




0180 


02EA 


A2 


05 






LDX 


*5 




■ no: PLAY IT. 




0181 


02EC 


DO 


15 






BNE 


DONE 








0182 


02EE 


A9 


01 




ODDRND 


LD A 


*1 




5 SET ODDMASK TO 1 r SO 




0183 


02FO 


85 


40 






STA 


ODDMSK 




* u o 1 1 rr lit] r oc A CTncr 
rMU'.'t W11..L pfc. A b.l.l.'h. 




0184 


02F2 


20 


9A 


00 


RNDMV 


JSR 


RANDOM 




j bt I KnNLlUn T r UI-, nu . r. . 




0185 


02F5 


29 


OF 






AND 


*«0F 




" H A IT" TT A 1c; 

> MAKE 1 1 V— 1 ^! . 




0186 


02F7 


05 


40 






ORA 


ODDMSK 




■ MAKE ODD t IF CORNER NFf: 


JEJ. 


0187 


02F9 


C9 


09 






CMP 


♦ 9 




■ NUMBER TOO HIGH? 




0188 


02FB 


BO 


F5 






BCS 


RNDMV 




■IF YES> GET ANOTHER. 




0189 


02FD 


AA 








TAX 










0190 


02FE 


B5 


18 






LDA 


GMBRD.X 




■SPACE OCCUPIED? 




0191 


0300 


DO 


FO 






BNE 


RNDMV 




■ IF YES, GET ANOTHER MOVE 




0192 


0302 


E8 








INX 






} INCREMENT X TO MATCH OUTPIP 


OF FINDM 


0193 


0303 


60 






DONE 


RTS 






■RETURN W/ MOVE IN X. 




0194 


0304 




















0195 


0304 








! ****** SUBROUTINE 


'FI 


ND MOVE ' ****** 




0196 


0304 








■FINDS 


A SQUARE MEETING 


SPECIFICATIONS 




0197 


0304 








■ PASSED IN 


IN A AND 


X. 






0198 


0304 








i INDEX 


REGISTER X CONTAINS 




0199 


0304 








f MASK 


THAT 


WHEN OR 'EI! 


WITH 




0200 


0304 








(NUMBER OF 


TIMES A 


SQUARE FITS ROWS KITH 




0201 


0304 








■ROWSUM IN 


ACCOM. > 


MUST 


YIELD A ONE 




0202 


0304 








(FOR SQUARE TO DUAL 


IFY. 






0203 


0304 




















0204 


0304 


86 


39 




FINDMV 


STX 


TEMP2 




■SAVE REGISTERS. 




0205 


0306 


85 


38 






STA 


TEMPI 








0206 


0308 


A9 


00 






LDA 


to 




■CLEAR SQUARE STATUS REG I 


STERS, 


0207 


030A 


AO 


08 






LDY 


*8 








0208 


030C 


99 


21 


00 


CLRLP 


STA 


SQSTAT 7 Y 








0209 


030F 


88 








DEY 










0210 


0310 


10 


FA 






BPL 


CLRLP 








0211 


0312 


AO 


07 






LDY 


*7 




■LOOP 7X 




0212 


0314 


A5 


38 




CHEKLP 


LDA 


TEMPI 




■DOES ROWBUM 




0213 


0316 


D9 


2A 


00 




CMP 


ROUSUM.Y 




■MATCH PARAMFTER? 




0214 


0319 


DO 


OF 






BNE 


NOCHEK 




■IF NOT ■ TRY NEXT. 




0215 


031B 


B6 


00 






LDX 


RUPTtrY 




■CHECK 1ST SQUARE IN ROW . 




0216 


031D 


20 


39 


03 




JSR 


CNTSUB 




■ INCREMENT ITS STATUS IF IT'S EMPTY. 


0217 


0320 


B6 


08 






LDX 


RWPT2,Y 




■ DO 2ND SQUARE. 




0218 


0322 


20 


39 


03 




JSR 


CNTSUB 








0219 


0325 


B6 


10 






LDX 


RUPT3iY 




■AND THIRD. 




0220 


0327 


20 


39 


03 




JSR 


CNTSUB 








0221 


032A 


88 






NOCHEK 


DEY 






■TRY NEXT ROW. 




0222 


032B 


10 


E7 






BPL 


CHEKLP 








0223 


032D 


A2 


09 






LDX 


t9 








0224 


032F 


A5 


39 




FNMTCH 


LDA 


TEMP2 




■LOAD PARAMETER. . . 




0225 


0331 


35 


20 






AND 


SQSTAT-1 


■ X 


= < SQUARE STATUS ) AND < PARAM ) ><)' 


0226 


0333 


DO 


03 






BNE 


FOUND 




■IF YES. PLAY X AS MOVE. 




0227 


0335 


CA 








DEX 






■DECREMENT AND TRY NEXT S 


QSTAT. 


0228 


0336 


DO 


F7 






BNE 


FNMTCH 








0229 


0338 


60 






FOUND 


RTS 










0230 


0339 




















0231 


0339 








i ****** SUBROUTINE 


'COUNTSUB' ****** 




0232 


0339 








J INCREMENTS SQSTAT 


OF EMPTY SQUARES. 




0233 


0339 




















0234 


0339 


B5 


18 




CNTSUB 


LDA 


GMBRDrX 




■GET SQUARE. 




0235 


033B 


DO 


02 






BNE 


NOCNT 




■IF FULL ■ SKIP. 




0236 


033D 


F6 


21 






INC 


SQSTAT ■ X 




■ INCREMENT SQSTAT 




0237 


033F 


60 






NOCNT 


RTS 






> DONE . 




0238 


0340 




















0239 


0340 








j ****** SUBROUTINE 


'UPDATE' ****** 




0240 


0340 








■PLAYS 


MOVE BY STORING 


CODE PASSED IN IN ACCUM. 




0241 


0340 








J AT SQUARE 


SPECIFIED BY 


X REG. 




0242 


0340 








■ ALSO 


LIGHTS/SETS BLINKING PROPER LED, 




0243 


0340 








(AND COMPUTES ROWSUMS. 






0244 


0340 




















0245 


0340 


CA 






UPDATE 


»EX 






■DECREMENT MOVE TO MATCH 


INDEXING 


0246 


0341 


95 


18 






STA 


GMBRDiX 




■ PLAY MOVE. 
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0247 


0343 


C9 


04 




CMP ttOI 


(COMPUTER'S MOVE? 


0248 


0345 


FO 


on 




BEQ NOBLNK 


(IF YES, DON'T SET LED BL 


0249 


0347 


20 


98 


03 


JSR LIGHT 


( PI. AYER ' S MOVE ! GET HI T CORR 


0250 


034A 








(TO LED TO BE SET TO BLINKING. 


0251 


034A 


05 


3D 




ORA LTMSKL 


(PLACE BIT- IN BLINK MASKS 


0252 


034C 


85 


3D 




STA LTMSKL 


0253 


034E 


90 


04 




BCC NOBLNK 


(IF V-0, DON'T SET BIT 9, 


0254 


0350 


A9 


01 




LDA #01 


(SET BIT 9 TO BLINKING. 


0255 


0352 


85 


3C 




STA LTMSKH 


0256 


0354 


20 


6F 


03 


NOBLNK JSR LEDLTR 


(LIGHT LED. 


0257 


0357 


A2 


07 




LDX *7 


(LOOP TO COMPUTE ROWSUMS. 


0258 


0359 


18 






ADBROW CLC 


(PREPARE FOR ADDITION. 


0259 


035ft 


B4 


00 




LDY RWPT1.X 


(GET FIRST SQUARE ADDRESS 


0260 


035C 


E9 


18 


00 


LDA GMBRDiY 


(GET CONTENTS OF SQUARE. 


0261 


035F 


E4 


08 




LDY RUPT2.X 


(ADD SECOND SQUARE IN ROW 


0262 


0361 


79 


18 


00 


ADC GMBRD.Y 




0263 


0364 


B4 


10 




LDY RWPT3,X 


(ADD FINAL SQUARE. 


0264 


0366 


79 


18 


00 


ADC GMBRDrY 




0265 


0369 


95 


2A 




STA ROWSUM ,X 


(SAVE ROWSUM 


0266 


036B 


CA 






DEX 




0267 


036C 


10 


EB 




BPL ADDROU 


(GET NEXT ROWSUM. 


0268 


036E 


60 






RTS 




0269 


036F 












0270 


036F 








( ****** SUBROUTINE 


'LED LIGHTER' ****** 


0271 


036F 








(GIVEN AN ARGUMENT 


IN X REG * LIGHTS 


0272 


036F 








(LED (0-8) CORRESPONDING TO THAT ARGUMENT. 


0273 


036F 












0274 


036F 


20 


98 


03 


LEDLTR JSR LIGHT 


(GET BIT IM CORRECT POSIT 


0275 


0372 


on 


01 


AO 


ORA PORTIA 


(LIGHT LED. 


0276 


0375 


8D 


01 


AO 


STA PORTIA 




0277 


0378 


90 


05 




ECC LTRDN 


(IF LED t9 NOT TO EE LIT: 


0278 


037ft 


A9 


01 




LDA *1 


(1 TOHT LED *? 


0279 


037C 


8D 


00 


AO 


STA P0RT1B 




0280 


037F 


60 






LTRDN RTS 


(DONE. 


0281 


0380 












0282 


0380 








( ****** SUBROUTINE 


'PLAYER'S MOVE' ****** 


0283 


0380 








(GETS PLAYER'S MOVE 


- CHECKS FOR ERRORS. 


0284 


0380 












0285 


0380 


A9 


80 




PLRMV LDA #*80 


(MAKE SHORT BEEP TO SIGN A! 


0286 


0382 


85 


3E 




STA DUR 


(KEYBOARD INPUT NEEDED. 


0287 


0384 


A9 


10 




LDA #*10 




0288 


0386 


20 


AD 


00 


JSR TONE 




0289 


0389 


20 


00 


01 


KEYIN JSR GETKEY 


(GET MOVE. 


0290 


038C 


C9 


Oft 




CMP tlO 


(OUT OF BOUNDS? 


0291 


038E 


BO 


F9 




BCS KEY IN 


(IF YES ? GET ANOTHER. 


0292 


0390 


AA 






TAX 




0293 


0391 


FO 


F6 




BEQ KEYIN 


(IF MOVE - Ot GET ANOTHER, 


0294 


0393 


B5 


17 




LDA GMBRD-1 i X (SQUARE EMPTY? 


0295 


0395 


DO 


F2 




BNE KEYIN 


r IF NOT f TRY AGAIN. 


0296 


0397 


60 






RTS 




0297 


0398 












0298 


0398 








( ****** SUBROUTINE 


'LIGHT' ****** 


0299 


0398 








(SHIFTS A ONE BIT LEFT IN ACCUMULATOR TO 


0300 


0398 








(A POSITION CORRESPONDING TO THE 


0301 


0398 








( ARGUMENT PASSED IN 


IN REG. X. IF X~8> 


0302 


0398 








(CARRY IS SET. 




0303 


0398 












0304 


0398 


86 


38 




LIGHT STX TEMPI 


(SAVE X. 


0305 


039A 


A9 


00 




LDA tO 


(CLEAR ACCUM. FOR SHIFT. 


0306 


039C 


38 






SEC 


(GET BIT TO BE SHIFTED. 


0307 


039D 


2A 






SHIFT ROL ft 


(SHIFT BIT LEFT. 


0308 


039E 


CA 






DEX 




0309 


039F 


10 


FC 




BPL SHIFT 


(COUNT DOWN AND LOOP. 


0310 


03A1 


A6 


38 




LDX TEMPI 


(RESTORE X. 


0311 


03ft3 


60 






RTS 




0312 


03A4 












0313 


03A4 








( ****** SUBROUTINE 


'DELAY' ****** 


0314 


03ft4 












0315 


03A4 


AO 


FF 




DELAY LDY #*FF 




0316 


03A6 


A2 


FF 




DL.1. LDX *$FF 




0317 


03A8 


26 


3E 




DL2 ROL DUR 


( WASTE TIME. 


0318 


03AA 


66 


3E 




ROR DUR 
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0319 


03AC 


CA 






DEX 


0320 


03AD 


DO 


F9 




BNE DL.2 


0321 


03AF 


88 






DEY 


0322 


03B0 


BO 


F4 




BNE DLL 


0323 


03E2 


60 






RTS 


0324 


03B3 










0325 


03B3 








i ****** INTERRUPT HANDLING ROUTINE ****** 


0326 


03B3 








(AT EACH INTERRUPT r I...EDS WHOSE POSITIONS IN 


0327 


03B3 








( THE BLINK MASKS HAVE ONES IN THEM ARE TURNED 


0328 


03B3 








iON IF OFF y OFF IF ON. 


0329 


03B3 


48 






INTVEC PHA 


0330 


03B4 


AD 


01 


AO 


LDA PORTIA 


0331 


03B7 


45 


3D 




EOF; LTMSKL 


0332 


03B9 


8D 


01 


AO 


STA PORTIA 


0333 


03BC 


AD 


00 


AO 


LDA P0RT1B 


033-4 


03BF 


45 


3C 




EOR LTMSKH 


0335 


03C1 


8D 


00 


AO 


STA P0RT1B 


0336 


03C4 


AD 


04 


AO 


LDA T1LL 


0337 


03C7 


68 






PLA 


0338 


03C8 


40 






RTI 


0339 


03C9 










0340 


03C9 








( ****** SUBROUTINE 'INITIALIZE' ****** 


0341 


03C9 








(INITIALIZES PROGRAM. 


0342 


03C9 










0343 


03C9 








* - $50 


0344 


0050 










0345 


0050 


A9 


00 




INIT LDA *0 (CLEAR STORAGES. 


0346 


0052 


A2 


28 




LDX *CLREND-CLRST 


0347 


0054 


95 


18 




CLRALL STA CLRST7X 


0348 


0056 


CA 






DEX 


0349 


0057 


10 


FB 




BPL CLRALL 


0350 


0059 


AD 


04 


AO 


LDA TILL (GET RANDOM NUMBER GENERATOR SEED. 


0351 


005C 


85 


33 




STA RNDSCR+1 


0352 


005E 


85 


36 




STA RNDSCR+4 


0353 


0060 


A9 


FF 




LDA *»FF 


0354 


0062 


8D 


03 


AO 


STA DDRIA ( SET UP I/O 


0355 


0065 


8D 


02 


AO 


STA DDR1B 


0356 


0068 


8D 


02 


AC 


STA DDR3B 


0357 


006B 


A9 


00 




LDA tO (CLEAR LEDS 


0358 


006B 


8D 


01 


AO 


STA PORTIA 


0359 


0070 


8D 


00 


AO 


STA PORT IB 


0360 


0073 








(SET UP TIMER FOR INTERRUPTS WHICH 


0361 


0073 








(BLINK LEDS. 


0362 


0073 


20 


86 


8B 


JSR ACCESS (UNPROTECT SYM-1 SYSTEM MEMORY TO 


0363 


0076 








(SFT UP TNTERRUF'T VECTORS* 


0364 


0076 


A9 


B3 




LDA t<INTVEC (LOAD LOW BYTE INTERRUPT '.'ECTOF;, 


0365 


0078 


8D 


7E 


A6 


STA IRQ'.'!.. (STORE AT INTERRUPT '.'ECTOR LOCATION. 


0366 


007B 


A9 


03 




LDA *>INT'.'EC (LOAD HI BYTE INTERRUF'T L'ECTOF;* 


0367 


007D 


8D 


7F 


A6 


STA TRnUH SCTnPF 


0368 


0080 


A9 


7F 




1 DA t$7F (CI FAR INTFRRUF'T FNABI F PFGTSTFF;. 


0369 


0082 


8D 


OE 


AO 




0370 


0085 


A9 


CO 




1 Tt/N #*P/\ irUADI C TTMKTC1 TMTrDDI IDT 


0371 


0087 


8D 


OE 


AO 


STA IER 


0372 


008A 


A9 


40 




LDA t$40 (ENABLE TIMER! IN FRFJE-RUN MODF . 


0373 


008C 


8D 


OB 


AO 


STA ACR 


0374 


008F 


A9 


FF 




LDA #*FF 


0375 


0091 


8D 


04 


AO 


STA TILL (SET LOW LATCH ON TIMER 1. 


0376 


0094 


8D 


05 


AO 


STA T1CH (SET HIGH LATCH X START TNTEF,'RUPT COUNT . 


0377 


0097 


58 






CLI (ENABLE INTERRUPTS. 


0378 


0098 


D8 






CLD 


0379 


0099 


60 






RTS 


0380 


009A 










0381 


009A 








( ****** SUBROUTINE 'RANDOM' ****** 


0382 


009A 








( RANDOM NUMBER GENERATOR I RETURNS NEW 


0383 


009A 








(RANDOM NUMBER IN ACCUMULATOR. 


0384 


009A 








( 


0385 


009A 


38 






RANDOM SEC 


0386 


009B 


A5 


33 




LDA RNDSCR+1 


0387 


009D 


65 


36 




ADC RNDSCR+4 


0388 


009F 


65 


37 




ADC RNDSCR+5 


03B9 


00A1 


85 


32 




STA RNDSCR 


0390 


00A3 


A2 


04 




LDX *4 



Fig. 1 1 .50: Tlc-Tac-To© Program (Continued) 
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039* 


00A5 


B5 


32 




RNDLP LIJA 


RNDSCRtX 








33 




STA 


RNDSCR+1,X 


0393 


00A9 


ta 






DFX 




0394 


OOAA 








SPI- 


RNDLP 


0395 




60 






RTS 




0396 


OOAT 












0397 


OOAD 








i ****** SUBROUTINE 'TONE' ****** 


0398 


OOAB 








i GENERATES 


A TONE! NO. OF 1/2 CYCLES 


0399 


OOAD 








f MUST BE IN DUR * AND 


0400 


OOAD 








) WAVELENGTH CONST. IN ACCUMULATOR. 


0401 


OOAD 












0402 


OOAD 


85 


3F 




TONE STA 


FREQ 


0403 


OOAF 


A9 


FF 




LDA 


**FF 


0404 


00B1 


8D 


00 


AC 


STA 


P0RT3B 




00B4 


A9 


00 




LDA 


*00 


0406 


00B6 


A6 


3E 




LDX 


DUR 


0407 


0OB8 


A4 


3F 




FL2 LDY 


FREO 


0408 


OOBA 


88 






FL1 DEY 




0409 


OOBB 


18 






CLC 




0410 


OOBC 


90 


00 




BCC 


*+2 


0411 


OOBE 


DO 


FA 




BNE 


FL1 


0412 


OOCO 


49 


FF 




EOR 


*»FF 


0413 


00C2 


8B 


00 


AC 


STA 


P0RT3B 


0414 


00C5 


CA 






BEX 




0415 


00C6 


DO 


FO 




BNE 


FL2 


0416 


00C8 


60 






RTS 




0417 


00C9 








.END 



SYMBOL 


TABLE 














SYMBOL 


VALUE 














ACCESS 


8B86 


ACR 


AOOB 


ADDROU 


0359 


ANALYZ 


029D 


CHEKLP 


0314 


CLRALL 


0054 


CLREND 


0040 


CLRLP 


030C 


CLRST 


0018 


CNTSUB 


0339 


COMPMV 


0226 


IIIIRIA 


A003 


DDR1B 


A002 


DDR3B 


AC02 


DELAY 


03A4 


DL1 


03AA 


DL2 


03A8 


DLY 


0297 


DONE 


0303 


DUR 


003E 


FINDMV 


0304 


FL1 


OOBA 


FL2 


00B8 


FNMTCH 


032F 


FOUND 


0338 


FREQ 


003F 


GETKEY 


0100 


GMBRD 


0018 


GTMSK 


0269 


IER 


AOOE 


INIT 


0050 


INTDN 


025F 


INTEL 


0041 


INTVEC 


03B3 


IRCIVH 


A67F 


[RQVL 


A67E 


KEYIN 


0389 


LEDLTR 


036F 


LIGHT 


0398 


LTMSKH 


003C 


LTMSK'L 


003D 


LTRDN 


037F 


MOVNUM 


003A 


NDBLNK 


0354 


NOCHEK 


032A 


NOCNT 


033F 


ODDMSK 


0040 


ODDRND 


02EE 


OK 


02C7 


F'LAYLP 


0212 


PLAYR 


003B 


PLRMV 


0380 


PORTIA 


A001 


P0RT1B 


AOOO 


P0RT3B 


ACOO 


RANDOM 


009A 


RESTRT 


0204 


RNDLP 


00A5 


RNDMV 


02F2 


RNDSCR 


0032 


ROUSUM 


002A 


RUPT1 


0000 


RWPT2 


0008 


RUPT3 


0010 


SHIFT 


039D 


SQSTAT 


0021 


START 


0200 


T1CH 


A005 


TILL 


A004 


TEMPI 


0038 


TEMP2 


0039 


TONE 


OOAD 


TRAPCK 


02DD 


TSTLP 


0237 


UPDATE 


0340 


WIN 


024 D 


WINTST 


0235 












END OF 


ASSEMBLY 















Fig. 1 1 .50: Tic-Tac-Toe Program (Continued) 



286 



Appendix A 
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Add with carry 


JSR 


Jump to subroutine 




Logical AND 


LiUA 


Load accumulator 


ASL 


Aritnmetic snitt lett 


LUA 


Load A 


BCC 


Branch if carry clear 


t nw 
LdUl 


Load Y 


BCS 


Branch if* carry set 




Logical shift right 


BEQ 


Branch if result — 


NOP 


lyU UpcIdllOIl 


BIT 


Test bit 


ORA 


Logical OR 


BMI 


Branch if minus 


PHA 


Push A 


BNE 


Branch if not equal to 


PHP 


Push P status 


BPL 


Branch if plus 


PLA 


Pull A 


BRK 


Break 


PLP 


Pull P status 


BVC 


Branch if overflow clear 


ROL 


Rotate left 


BVS 


Branch if overflow set 


ROR 


Rotate right 


CLC 


Clear carry 


RTI 


Return from interrupt 


CLD 


Clear decimal flag 


RTS 


Return from subroutine 


CU 


Clear interrupt disable 


SBC 


Subtract with carry 


CLV 


Clear overflow 


SEC 


Set carry 


CMP 


Compare to accumulator 


SED 


Set decimal 


CPX 


Compare to X 


SEI 


Set interrupt disable 


CPY 


Compare to Y 


STA 


Store accumulator 


DEC 


Decrement memory 


STX 


Store X 


DEX 


Decrement X 


STY 


Store Y 


DEY 


Decrement Y 


TAX 


Transfer A to X 


EOR 


Exclusive OR 


TAY 


Transfer A to Y 


INC 


Increment memory 


TSX 


Transfer SP to X 


INX 


Increment X 


TXA 


Transfer X to A 


INY 


Increment Y 


TXS 


Transfer X to SP 


JMP 


Jump 


TYA 


Transfer Y to A 
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IMPLIED 


ACCUM. 


ABSOLUTE 


ZERO PAGE 


IMMEDIATE 


ABS. X 


ABS. Y 


MNEMONIC 




OP 




# 


OP 






OP 




# 


OP 




n 


OP 




# 


OP 




# 


OP 




# 


ADC 


(') 














6D 


4 


3 


65 


3 


2 


69 


2 


2 


7D 


4 


3 


79 


4 


3 


AND 


(1) 














2D 


4 


3 


25 


3 


2 


29 


2 


2 


3D 


4 


3 


39 




3 


A S L 










OA 


2 


1 


OE 


6 


3 


06 


5 


2 








IE 


7 


3 








BCC 


(2) 












































B C S 


(2} 












































BEQ 


(2) 












































B 1 T 
















2C 


4 


3 


24 


3 


2 




















6 M 1 


(2) 












































B N E 


(2) 












































B P L 


(2) 












































B R K 




00 


7 


1 






































B V C 


(2) 












































B V S 


(2) 












































C L C 




18 


2 


1 






































C t D 




D8 


2 


1 






































C L 1 




58 


2 


1 






































C I V 




B8 


2 


1 






































CMP 
















CD 


4 


3 


C5 


3 


2 


C9 


2 


2 


DD 


4 


3 


D9 


4 


3 


C P X 
















EC 


4 


3 


E4 


3 


2 


EO 


2 


2 














C P Y 
















cc 


4 


3 


C4 


3 


2 


CO 


2 


2 














D E C 
















CE 


6 


3 


C6 


5 


3 








DE 


7 


3 








D E X 




CA 


2 


I 






































D E Y 




88 


2 


1 






































E R 


U) 














4D 


4 


3 


45 


3 


2 


49 


2 


2 


5D 


4 


3 


59 


4 


3 


1 N C 
















EE 


6 


3 


E6 


5 


2 








FE 


7 


3 









! N X 




E8 


2 


t 






































1 N Y 




C8 


2 








































J M P 
















4C 


3 


3 


























J S R 
















20 


6 


3 


























L D A 


(') 














AD 


4 


3 


A5 


3 


2 


A9 


2 


2 


BD 


4 


3 


B9 




3 


L D X 


(1) 














AE 


4 


3 


A6 


3 


2 


A2 


2 


2 








BE 




3 


L D Y 


(>) 














AC 




3 


A4 


3 


2 


AO 


2 


2 


BC 


4 


3 








L S R 
NO P 




EA 


2 


1 


4A 


2 


1 


4E 


6 


3 


46 


5 


2 








5E 


7 


3 








O R A 
















OD 


4 


3 


05 


3 


2 


09 


2 


2 


ID 


4 


3 


19 




3 


P H A 




48 


3 


1 






































PHP 




08 


3 


1 






































P L A 




68 


4 


! 






































P I P 




28 




1 






































R O L 










2A 


2 




2E 


6 


3 


26 


5 


2 








3E 


7 


3 








R OR 










6A 


2 


1 


6E 


6 


3 


66 


5 


2 








7T 


7 


3 








R T 1 
R T S 
SBC 
S E C 
S E D 




40 
60 

38 
F8 


6 
6 

2 
2 


i 
1 

1 
1 








ED 


4 


3 


E5 


3 


2 


E9 


2 


2 


FD 


4 


3 


F9 




3 


S E 1 




78 


2 


1 






































S T A 
















8D 


4 


3 


85 


2 










9D 


5 


3 


99 


5 


3 


S T X 
















6E 




3 


86 


2 






















STY 
















8C 




3 


«4 


2 






















TAX 




AA 


2 








































T A Y 




A8 


2 








































T S X 




BA 


2 








































T X A 




8A 


2 








































T X S 




9A 


2 








































T Y A 




98 


2 









































( i ) Add 1 ton if crossing page boundary 



288 



APPENDIX 





ND. 


<) 


(IND)Y 


Z 


PAGE. X 


RELATIVE 


INDIRECT 


Z 


PAGE. Y 


PROCESSOR 
STATUS cooes 


OP 







OP 







OP 







OP 






OP 







OP 







N V B D 1 Z C 


MNEMONIC 


61 
21 


6 
6 


2 
2 


71 
31 


5 
5 


2 
2 


75 
35 
16 


4 
4 

6 


2 
2 
2 


90 
BO 


2 
2 


2 
2 














• • • • 

• • 

• • • 


ADC 
AND 
A S L 
B C C 
B C S 




















FO 

30 
DO 
10 


2 

2 
2 
2 


2 

2 
2 
2 
















B E O 
B 1 T 
B M 1 
B N E 
B P I 




















50 
70 


2 
2 


2 
2 














1 1 






B R K 
B V C 
B V S 

C I C 
C L D 


CI 


6 


2 


Dl 


5 


2 


D5 


4 


2 
























• • • 

• • • 

• • • 


C L 1 
C I V 
C MP 
C P X 
C P Y 


4t 


6 


2 


51 


5 


2 


06 

55 
F6 


6 

4 

6 


2 

2 
2 






















D E C 
D E X 
D E Y 
E O R 
1 N C 



Al 


6 


2 


Bl 


5 


2 


B5 




2 








6C 


5 


3 








• • 

• • 

• • 


1 N X 
1 N Y 
J M P 
J S R 
I D A 


01 


6 


2 


II 


5 


2 


B4 

56 

15 


4 

6 

4 


2 
2 

2 














B6 


4 


2 


• • 

• • 

• • 

• • 


I D X 
I D Y 
1 S R 
NO P 
O R A 














36 


6 


2 




















• • 

• • • 


P H A 
PHP 
P t A 
P I P 
R O I 


Et 


6 


2 


Fl 


5 


2 


76 
F5 


6 
4 


1 
2 




















• • • 

• • • • 

1 

1 


R OR 
R T 1 
R T S 
SBC 
S E C 
S E D 


81 


6 


2 


91 


6 


2 


95 
94 


4 
4 


2 
2 














96 


4 


2 


1 

• • 


S E 1 
S T A 
S T X 
STY 
TAX 






































• • 

• • 

• • 

• • 


T A Y 
T S X 
T X A 
T X S 
T Y A 



(2) Add 2 to n if branch within page 

Add 3 to n if branch to another page 
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ACCESS 170 


Decision tables, 225 


AH hop fllfforithm 


DELAY, 56, 132, 211, 278 


AH hnr nmcrrflTnmino 


Dplav constant 103 


Analytical algorithm, 225 


Diagonal trap, 244 


ANALYZE, 263 


Diagonals, 266 


Array, 122 


DISPLAY, 118 


Artificial intelligence, 224 


DISPLY, 119 


Assembler, 47 


Do-nothing, 55 


Assembly, 12 


Draw, 222 


AnHin fppHhark" \f\% 


Dual Counter, 92 


AiiYiliarv fnntrnl Rpffi^tpr 174 


Duration, 148 


BEO, 154 


DURTAB, 144 


Hiimrv niitnrtpi* A.\ 
Dlllaiy liUHlUCl, *f 1 


FCHO 137 


Rlflrkiark 189 


Echo 35 


Blackjack Program, 212 


Echo Program, 145 


BLIN 


ESP Tester, 139 


Blink masks, 175 


EVAL, 118, 126, 153 


BLINKER, 208 


Evaluating the board, 225 


Blinking, 274 


Extra Sensory Perception, 139 


Blinking LEDs, 261 


FINDMV, 264, 269 


Blip counter, 92 


FINDMV flowchart, 270 


Board analysis flowchart, 242 


First move, 235 


Bounce, 13 


Free run, 198 


Bracket-filtering, 150 


Free-running, 198 


Carry, 206 


Free-running mode, 171, 256 


Cassette recorder, 4 


Frequencies, 25 


CLI, 174 


Frequency, 22, 261 


CNTSUB, 55 


Frequency and duration constants, 161 


Complement, 73 


Games Board, 2, 7 


Complementation Table, 80 


GETKEY, 13, 149 


Computing the Status, 271 


GETKEY Program, 17 


Constant symbols, 47 


GMBRD, 252 


Counter, 65, 101 


Heuristic strategy, 225 


COUNTSUB, 273 


Hexadecimal, 41 


Current limiters, 1 1 


Hexguess Program, 63 


Decimal mode, 151 


IER, 171 
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IFR, 171 

Illegal key closure, 95 
Index, 159 

Indexed addressing, 37, 39, 122, 126 
Initialization, 198 
INITIALIZE, 279 
Intelligence level, 252, 260 
Interconnect, 4 
Interrupt, 198, 252, 261 
Interrupt Handler, 183, 211 
Interrupt handling, 198, 279 
Interrupt Registers, 174 
Interrupt-enable register, 256 
Interrupt-enabler, 171, 179, 256 
IQ level, 245, 265 
Jackpot, 100 
JMP, 154 
Key closure, 277 
Keyboard, 7 

Keyboard input routine, 13 

Labels, 47 

Latch, 65 

LED #9, 123 

LED Connection, 10 

LEDs, 8 

Levels of difficulty, 8 

LIGHT, 118, 132, 157, 274, 278 

LIGHTER, 276 

LIGHTR, 207 

LITE, 70, 182 

Loop counter, 92 

LOSE, 130 

Magic Square, 73 

MasterMind, 162 

Middle C, 23 

Mindbender, 162 

Mindbender Program, 184 

MOVE, 47 

Multiplication, 122 

Music Player, 20 

Music Program, 31 

Music theory, 23 

Nested loop delay, 39 

Nested loop design, 25 

NOTAB, 144 

Note duration, 159 

Note frequency, 159 

Note sequence, 139 

Parameters, 149 



Parts, 11 

Perfect square, 73 
PLAY, 48, 53 
PLAYEM, 37 
Playing to the side, 24 
PLAYIT, 30, 38 
PLAYNOTE, 30 
PLRMV, 277 
Potential, 225 
Power supply, 4 
Programmable bracket, 101 
Prompt, 42 
Protected, 170 
Protected area, 170 
Pulse, duration, 171 
RANDER, 210 

RANDOM, 57, 135, 150, 159, 209 
Random moves, 241 
Random number, 54, 65, 78, 1 18, 267 
Random number generator, 57, 1 18, 
149 

Random pattern, 73 
Random move, 267 
Recursion, 21 1 
Repeat, 13 
Resistors, 11 
RNDSCR, 252 
Row sequences, 251 
Row-sum, 239, 271 
SBC, 206 
Scratch area, 57 
Score, 107, 128 
Score table, 107, 111, 112 
SCORTB, 127 
Seed, 118, 149 
74154,8 
7416,8 

Shifting loop, 158 

SHOW, 152 

Side, 267 

Simple tunes, 21 

Siren, 100 

Slot Machine, 99 

Slot Machine Program, 1 13 

Software filter, 175 

Special decimal mode, 150 

Spinner, 87 

Spinner Program, 93 

SQSTAT, 252 
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Square status, 269 
Square wave, 22 
Strategy, 225 
SYM, 4 
T1CL, 6, 83 
T1L-L, 65 

Threat potential, 226 
Tic-Tac-Toe, 218 
Tic-Tac-Toe Flowchart, 248 
Tic-Tac-Toe Program, 280 
TIMER, 65 

Timer, 65, 83, 198, 256 
Timer 1, 175 
TONE, 39, 70, 130, 135 
Translate, 41 
Translate Program, 49 
Trap, 235, 239, 264, 267 
Trap pattern, 241 
Two-level loop, 211 
Two-ply analysis, 237 
Unprotect system, 198 
UPDATE, 273 
Value computation, 226 
VIA, 8 

VIA memory map, 66 
Visual feedback, 163 
WAIT, 98 

Wheel pointer, 103, 120 
WIN, 128 
Win, 259 

Win potential, 225 
WINEND, 129 
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